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. EVISTA NDEPENDIENTE PARA USUARIOS DE ORDENADQRES AMSTRAD l? rff!'íj,y, /", (j 
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 AÑo I N.' " 
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'50 Ptas. 


Can
nas 160 ptas. 


ILER: 
c ea tus · rchivos 
d. d. · en 
cinta/disco 


\ '- 
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¡Quinielas! 
Hazte mil/onario 
con tu Amstrad: 
con quinielón 
podrás acertar 
hasta 7 4 
resultados 
. PERACIONES 
MATEMATICAS 
EN EL AMSTRAD 



 
'.\ 
\ 
.... 


' 
 ' '
 
I \.. 

 . 


".... '; 


,. . 


...... 


. ' 


\' 


'" 

 I 


..... 


'1, 


''t- 
£\
 )'-
 
...' \, 
')4\¡ '/, 


¡ , 


l "- 


" 


, í 
, 


h 
L, 


f' 


RUTINAS 
DE SPRITES 
E IMPRESION 
DE CARACTERES 
EN PANTALLA 
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SOFTWARE 
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DYNAMITE DAN, 
primer juego comercial 
en España con pokes 
de vidas infinitas 


HOBBY PRESS,S.A. 



Gráficos a color, rapidez de acción y sonido dan a este juego 
la sensacion de una máquina de mUlón real. 
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VA DISPONIBLE EN 
 c....Ic .. 
, '" V EN TODAS LAS 
TIENDAS ESPECiAliZADAS 


ACTIVltiAbE - e ,1' ERCIALES ElE" RONICAS. S,A. 
Tarragona, 110, Tel, 325 1058' 08015 Barcelona. Telex 93133 ACEEF 
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TARJETA DE SUSCRIPCION AHORRO/REGALO 
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(Si lo prefieres suscríbete por teléfono (91) 733 50 12 (91) 733 50 16) 
Oferta especial para recibir en tu domicilio todo un año la revista semanal 
Microhobby AMSTRAD 
con un descuento de 1.600 ptas., iy el regalo de una cinta 
original por valor de 2.100 ptas.! 
f-ECHA LIMITE DE RESPUESTA: ¡SEÑALA EL NOMBRE DE LA CINTA QUE 
30 DE NOVIEMBRE DE 1985 PREFIERES Y LA RECIBIRAS EN TU CASA. 
il1ESPONDE HOY MISMO! GRATIS, A VUELTA DE CORREO! 


Deseo suscflb,rme aMicrohobby AMSTRAO durante un año por sól05,900 p!as, , lo que me supone un ahorro c1e1.600 p!as, 
II pflmer numero que deseo recibir es el 
EnvienmeGRATIS la cinta de programas que le indico con una (X) 
D Beach Head D Comba! lynx D O.T, Oeca!hlon 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C, POSTAL 


EDAD 


TELEFONO 


PROVINCIA 
PROFESION 


Marco con una (X) en el casillero correspond,enle la tarma de pago que mas me conViene, 
D Talón bancaflo ac1lunto a nombre HOBBY PRESS, S, A. D Giro Postal N.o 
pflmer numero, junto a la cassette regalo, D VISA N," 
Fechil de caduclClad c1e la tarlcta 


D Contra reembolso del 
D MAS rEn CHAHGE N.o 


Presidente 
María Andrina 
Consejero Delegodo 
José 1. Gómez-Centuri6n 
Jefe de Publicidad 
Cancha Gutiérrez 
Publicidad Barcelona 
José Galón Cortes 
Tel: (93) 303 1022/3137162 


Secretaria de Dirección 
Marisa Cogan a 
Suscripciones 
M,.o Rasa Ganzólez 
M,o del Mar Calzada 
Redacción, Administración 
y Publicidad 
La Grania, s/n 
Polígono Industrial de Alcabendas 
Tel.: 65432 11 
Telex: 49 480 HOPR 
Dto. Circulación 
Carlos Pe' apadre 
Distribución 
Caedis, S, A. Valencia, 245 
8arcelona 


Imprime 
ROTEDIC, S, A. Crta, de Irún, 
Km. 12,450 (MADRID) 
Fotocomposición 
Navacomp, S,A, 
Nicolás Morales, 38-40 
Fotomecánica 
GROF 
Ezequiel Solana, 16 
Depósito Legal: 
M.28468-1985 


Derechos exclusivos 
de la revista 
COMPUTlNG with 
the AMSTRAD. 


Representante para Argenrina. Chile, 
Uruguay y Paraguay, Cia. 
Americana de Ediciones, $,R,L. Sud 
América 1.532, Tel., 21 2464, 1209 
BUENOS AIRES (Argentino), 
M, H, AMSTRAO nc se hace 
necesariamente solidaria de las 
opiniones vertidos por sus 
colaboradores en los articulos 
firmados. Reser.....ados Iodos los 
derechos, 
Se solicil&o conlrol OJO 


Firma: 


Serie oro 1 


El programa quíníelas que presentamos en este 
numero muy bien podría calificarse de excepcional, 
Nos permite hacer toda tipo de apuestas desarrollando 
las distintas combinaciones según los métodos 
considerados mejores por la «teoría» quiníelística. 
Las probabilidades de acertar 14 son pocas, pero tal 
vez el programa sirva de ayuda a alguíen y le permita 
investigar la estrategia más conveniente. 
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Análisis 33 


Un pequeño programa muy bien construido nos 
muestra la técnica de los fícheros de texto en 
cinta/dísco, Como escribir, leer en ellos, abrir/os y 
cerrar/os. 
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n dinamita 
erdestrucfívo Rayo 
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2 O ProgromAcción 
Nunca está de más mejorar la apariencia estética de 
nuestros programas, añadiéndoles belleza y 
orígínalídad, 
En este sentido presentamos dos nuevos comandos 
del Amstrad Basic, creados haciendo uso del sistema 
RSX, que permiten girar caracteres a derecha e 
izquíerda de 90 en 90 grados, 


Có
i9l! 28 
moqulno 
Damos un paso de gigante en el estudio de los 
gráficos y, por tanto, de la forma en la que el 
Amstrad organiza la memorÍ'o de pantalla, También, 
las prímeras rutinas de impresián de gráficos en códígo 
máquina, 
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Apartado de Correos 
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ACTIVIDADES COMERCIALES ELECTRONICAS, $.A. '" Y EN TODAS LAS 
Tarragona, 110, Tel, 325 1058" 0B015 Barcelona. Telex 93133 AC 
 TIENDAS ESPECIALIZADAS 
.. 
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Director Editorial 
José 1. Gómez Centurion 
Director Ejecutivo 
Víctor Prieto 
Subdirector 
José Morío Dioz 
Redactora Jefe 
Morto Gorcio 
Diseño 
José Flores 
Colaboradores 
Froncisco Porto lo 
Pedro Sudón 
Miguel Sepúlveda 
Francisco Marhn 
Jesús Alonso 
Pedro S, Pérez 
Amalio Gómez 
Juan J, Martmez 
Secretaria Redacción 
Carmen Santamaría 
Fotografía 
Carlos Condel 
Javier Martínez 
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Manuel Barco 
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J, Iguol, J, Pons, F, L. Frontón, 
J. Septien, Pejo, J, J, Mora, 
Luigi Pérez 
Edita 
HOBBY PRESS S.A, 


Presidente 
María Andrino 
Consejero Delegado 
José 1. Gómez-Centurión 


Jefe de Publicidad 
Concho Gutiérrez 
Publicidad Barcelona 
José Galón Cortes 
Tel: (93) 303 1022/31371 62 


Secretaria de Dirección 
Moriso Cogorro 
Suscripciones 
M,a Rosa Gonzólez 
M,a del Mor Calzada 
Redacción, Administración 
y Publicidad 
La Granja, s/n 
Polígono Industrial de Alcobendos 
Te!.: 6543211 
Telex: 49480 HOPR 
Dto. Circulación 
Carlos Peropodre 
Distribución 
Coedis, S, A. Valencia, 245 
Bo rcelona 


Imprime 
ROTEDIC, S, A, Crto, de Irún, 
Km, 12,450 (MADRID) 
Fotocomposición 
Novocomp, S,A, 
Nicolós Morales, 3B.40 
Fotomecániea 
GROF 
Ezequiel Solano, 16 
Depósito Legal: 
M,2B46B-19B5 


Derechos exclusivos 
de lo revisto 
COMPUTING wlth 
the AMSTRAD. 


Representante para Argentina, Chile, 
Uruguay y Paraguay, Cia, 
Americona de Ediciones, $,R,L. Sud 
América 1.532, Tel.: 21 2464, 1209 
BUENOS AIRES (Argentina), 
M, H, AMSTRAO no se hace 
necesariamente solidaria de las 
opiniones vertidas por sus 
colaboradores en los articulas 
firmadas, Reservados todos 105 
derec.hos. 


Se ,alici'&a conlral OJO 


, 


j J 


Año / · Número 74 · 3 al 9 de Diciembre de 7985 
750 plas, (sobrelasa Canarias, 7 O plas,) 


8 Primeros 
pasos 
Además de las cadenas alfanuméricas, de indudable 
utilidad, es necesario conocer como se maneían los 
números y los cálculos relacionados con ellos en el 
Amstrad. Primeros pasos estudia el tema y propone 
el atento examen de un interesante programa de 
demostración. 


Serie oro 1 


El programa quinielas que presentamos en este 
número muy bien podría calificarse de excepcional. 
Nos permite hacer todo tipo de apuestas desarrollando 
las distintas combinaciones según los métodos 
considerados meíores por la «teoría» quinielística, 
Las probabilidades de acertar /4 son pocas, pero tal 
vez el programa sirva de ayuda a alguien y le permito 
investigar la estrategia más conveniente, 
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Análisis 33 


Un pequeño programo muy bien construido nos 
muestra la técnico de los ficheros de texto en 
cinto/disco. Como escribir, leer en ellos, abrir/os y 
cerrar/os. 
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Mr Joystick 18 


¿Conseguirá el superogente Dan dinamita 
apoderarse de los planos del superdestructivo Rayo 
Devastador? 
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2 O ProgromAcción 


Nunca está de más mejorar lo apariencia eslética de 
nuestros programas, añadiéndales belleza y 
originalidad, 
En este sentido presentamos dos nuevos comandos 
del Amstrad 8asic, creados haciendo uso del sistema 
RSX, que permiten girar caracteres a derecha e 
izquierda de 90 en 90 grados, 


Có
i9l! 28 
maqulna 
Damos un paso de gigante en el estudio de los 
gráficos y, por tanto, de la forma en la que el 
Amstrad organiza la memoria de pantalla, También, 
las primeras rutinas de impresión de gráficos en código 
máquina, 
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LAY IT LlK TH i '8 
NO TOMORROW' 


BASEBALL 
Impresionante simulación en 3' 
dimensiones, Se puede competir contra 
el ordenador o contra otro jugador. 
No es necesario conocer el beisbol. 
Hay un modo de demostración. 
Pantallas gigantes para ver de cerca la 
acción. 


RAID 
Defiéndete con tu escuadrilla de aviones 
del ataque nuclear Que han lanzado 
sobre ti. Tu viaje estará lleno de peligros 
hasta Que llegues a las bases de 
lanzamiento de misiles enemigas, 
Tendrás Que destruirlos para salvar a tu 
pais de una catástrofe nuclear. Gráficos 
y acción sensacionales, 
P.V,P.: 2,300 ptas, 
Precio C, de 50ft: 2,070 ptas. 


P.V.P.: 2,100 ptas, 
Precio C. de Soft: 1.890 ptas, 
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MICROAMIGO SI\. 


P.o de la Castellana, 268, 3.° C. 28046-MADRID. 
Tel.: (91) 7332500 
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MATCH DAY 
iAhora para Amstrad! No se trata de un 
juego de fútbol cualquiera. Fantástica 
acción en 3 dimensiones y animación 
total Que dan vida al fútbol. Quedarás 
maravillado con el control del balón y 
desarrollarás tu destreza y técnica 
jugando contra otro jugador o contra el 
ordenador, 
P,V.P,: 2,300 ptas, 
Precio C. de 50ft: 2,070 ptas, 
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, JJ 


"JI\- 'Jr JjJJ Ji J ..J Jr r 
I "lrJ V 7 _ "r.J !Ademásdepoderadquirirtuspro- 
gramas al mejor precio, recibirás información de forma periódica y Qratuita, del mejor software que apa- 
rezca en el mercado. 


..J U
'} 11 'f r!J }J l r 
 rJ r 7/ } J r "}..J..J
 7 "ln. 7 7 r Así de fácil: envía- 
nos por correo tu nombre, dirección y modelo de ordenador, o bien, pide por teléfono o por correo tu pri- 
mer programa. ¡y entrarás a formar parte del CIRCULO DE 80FT de forma inmediata! 


o si. quiero ser SOCIO desde hoy mismo del CIRCULO DE SOFT y recibir periódicamente información de novedades de software. así como beneficiarme desde hoy mismo de los pre- 
cios reducidos reservados a los soaos y de sus Ofenas EspeCIales, El ser SOCIO no roo obliga a cOrT1Jra alguna, 
Si prefieres formalizar tu compra por teléfono puedes hacerlo llamando al (91) 733 2500, i¡NO SE COBRAN LOS GASTOS DE ENVIO POR CORREO!! 
TITULO P,V.P, ORDENADOR 


o COnlrarreembolso O GIfO Poslal O Talón adlumo a Mlcroamlgo, S,A, O Tallela VISA n,' 


Nombre 
Domicilio 
localidad 


Apellidos 


Teléfono 
Provincia 


C,P. 


Fecha caducidad 


Edad 
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casa británica inglesa 
Cumana, conocida entre otras cosas 
por las unidades de disco que fabri- 
ca, ha desarrollado para el Sinclair 
Ql una versión de sistema operati- 
vo OS9, hasta ahora implementado 
solamente en los ordenadores Dra- 
gon dentro del campo de los micros 
domésticos, 


UNIX PARA El Ql 


Este sistema operativo es, por de- 
finición, multiusuario y multiárea, po- 
see una estructura jerárquica de fi- 
cheros en disco, con subdirectorios, 
y un sistema de movimiento de da- 
tos a través de «pipelines», pudien- 
do redirigir la salida de un progra- 
ma a otro o a cualquier dispositivo 
fisíco del ordenador, de una forma 
muy sencilla, 
los lectores se percatarán de que 
estamos describiendo un microUnix, 
Su versatilidad y potencia son enor- 
mes, siendo además compatible con 
el Unix Standard a nivel de código 
fuente del lenguaje C. 
El Ql ve incrementada su ROM a 
144 Kbytes por la adición del OS9, 


o:,
 '/V'S 


ampO'OdO con los o,de- 
nadores de hace 10 años, el Ams- 
trad que usted tiene en su casa les 
da «mil vueltas», porque es mucho 
más potente, pequeño y barato, 
Estas mejoras se deben a muchos 
factores, naturalmente, resumidos 
todos ellos en el tópico «avance de 
la tecnología», 
Sin embargo, dentro de todo este 
cúmulo, existe uno de importancia 
capital, responsable en gran parte 
de la presencia cada vez más amplia 
del ordenador en nuestra vida: la mi- 
crominiaturización, 
Resulta que cuanto más pequeño 
es un chip, más barato resulta, y la 
máquina que lo incorpora deviene 
más potente por el simple hecho de 
que le caben más, 
Estas razones tienen el suficiente 
peso económico para que se investi- 
gue sin cesar en cómo fabricar chips 
cada vez más pequeños, con una 
mayor escala de integración, que se 
dice, 
Tanto es así, que en un futuro cer- 
cano se alcanzará el límite. Simple- 
mente no podrán fabricarse chips 
más pequeños (aunque en ese mo- 
mento los de un mego serán cosa co- 
rriente) . 
No es de extrañar que la gente es- 
té empezando a pensar en materia- 
les e incluso'tecnologías alternativas 
a la electrónica, las opciones son 


muchas, pero tal vez la más atracti- 
va y revolucionaria sería construir or- 
denadores basados en material bio- 
lógico, en el carbono en lugar del si- 
licio. 
Si esto pudiera conseguirse, en el 
mismo espacio físico la capacidad de 
proceso y almacenamiento se vería 
multiplicada por un factor de miles 
de veces, ya que los «transmisores» 
de información, serían las propias 
moléculas orgánicas, muchísimo más 
pequeñas que cualquier chip, 
y todavía hay más: un importante 
sector de la comunidad científica que 
investiga el tema ve la llegada de los 
ordenadores biológicos como un pa- 
so más de la evolución, que hasta 
ahora culminaba en nosotros, Inclu- 
so se plantean la posibilidad de la 
unión directa, la simbiosis, hombre 
ordenador, 
De momento, todas estas inquie- 
tantes y atractivas posibilidades en- 
tran dentro del campo de la ciencia 
ficción (¿a Dios gracias?), pero nom- 
bres como IBM, Hitachi y una gran 
cantidad de universidades con los 
mejores cerebros del mundo van a 
hacer todo lo posible para conver- 
tirlas en realidad en el mínimo tiem- 
po posible. 
¿Dejarán los ordenadores de ser 
simplemente una herramienta estúpi- 
da para llegar a ser parte de noso- 
tros mismos? ¿Para mejorarnos? 
¿Cuánto tiempo la palabra {{huma- 
no» se ajustará a nuestros estánda- 
res de hoy? 
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NUEVO MODELO 
DE IBM 


IBM ha lanzado una configuración 
superior de su último modelo, ellBM 
A T, el ordenador personal más po- 
tente del mundo (según I BM), 
la nueva configuración posee 512 
K de RAM, un Floppy de 1,2 me- 
gabytes y un disco duro de 30 millo- 
nes de caracteres de almacenamien- 
to, 
Al parecer, una de las razones de 
la aparición del nuevo modelo se de- 
be a la proxima aparición, valga la 
redundancia, de otra máquina basa- 
da en el 80386 de Intel, el no va más 
de los procesadores actuales, 
y la otra razón, dicha en temero- 
sos susurros, es que el disco de 20 mi- 
llones del A T tenía un porcentaje de 
fallos anormalmente alto, I BM nun- 
ca reconoció este hecho, pero en 
USA lanzó un programa de alcance 
nacional para identificar y sustituir 
las placas de los controladores de 
disco sospechosas, 


ROBOTS ESCULTORES 


Renault está utilizando en Francia 
brazos robot controlados por orde- 
nador para esculpir en plástico los 
modelos de los prototipos de sus co- 
ches, El tiempo que toma este pro- 
ceso se ha reducido a 6 semanas, 
mediante la ayuda de este completo 
sistema CAD, 
El modelo se esculpe aprovechan- 
do el output de otro programa que 
dibuja el coche en dos dimensiones, 
el cual se traslada a tres dimensiones 
automática mente, 
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COMO LO OYES. EN CADA 
UNO DE NUESTROS JUE. 
GOS ENCONTRARAS UN 
CUPON. MANDANOSLO DE. 
BIDAMENTE RELLENADO Y 
PARTICIPARAS EN EL SOR. 
TEO QUE ENTRE TODOS 
LOS CUPONES RECIBIDOS 
HAREMOS EL 15 DE EN RO. 
¡IMAGINA TE! NADA MENOS 
QUE VIAJE Y ESTANCIA 
PARA 2 PERSONAS DURAN. 
TE 1 SEMANA EN MIAMI, EN 
DISNEY WORLD. - 
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Hemos comentado en esta sección más de una vez que los 
ordenadores manejan exclusivamente números, al menos 
internamente. 
El Amstrad no es una excepción y, por ello, vamos a revisar 
un poco cómo se tratan los números y qué puede hacerse con 
ellos. 



 o más bós;co es comenzm 
con las cuatro operaciones matemá- 
ticas básicas: suma,. resta, multiplica- 
ción y división. 
Naturalmente que sabemos que 
todos dominan la aritmética sencilla, 
todos... men. :1 Amstrad, y ello 
puede crearnos algunos serios pro- 
blemas, 
Por ejemplo: 
PRINT 5+3 
obviamente imprimirá un hermoso 8 
en la pantalla, pero: 
PRINT 5+3*8 
que resultará, 64 ó 29? 


La ambiguedad de las 
expresiones 


Como podéis observar, estamos 
en dificultades. Una persona ajena 
que leyera la expresión anterior du- 
daría sobre la intención del que la es- 
cribió, en el sentido de que se pre- 
tenda conseguir un resultado u otro. 
Los ordenadores no pueden du- 
dar, porque si lo hacen, se bloquean 
y dejan de funcionar. Para una má- 
quina una cosa es O ó 1, cierta o fal- 
sa, 
Esto implica la existencia de una 
serie de reglas incorporadas al Ba- 
sic para poder manipular expresio- 
nes numéricas de una forma unívo- 
ca, sin lugar a ambiguedades, 
Su nombre: Regla de la Preceden- 
cia de Operadores, 
Esto quiere decir, sencillamente, 
que por acuerdo asignamos un or- 
den de ejecución a los diferentes sím- 
bolos que operan sobre los números, 
por ejemplo, si la máquina se en- 
cuentra un signo « +» y un signo (( *», 
podríamos decidir que primero se 
evalúen los miembros de la expresión 
que lo contengan; en el caso ante- 
rior de: 
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PRINT 5+3*8 
el resultado sería 29. Si hubiéramos 
decidido que la suma tiene mayor 
prioridad, obtendríamos 64, un re- 
sultado tan diferente que la necesi- 
dad de unas reglas se hace patente. 
La prioridad es la siguiente, de ma- 
yor a menor: 
Potenciación 
- Multiplicación y división 
- Suma y resta 
Las operaciones que poseen la 
misma prioridad se evalúan de iz- 
quierda a derecha, por lo que el re- 
sultado «correcto» del ejemplo ante- 
rior es 29, no 64, 
Bien, ¿y si yo quiero que la opera- 
ción se realice justo de la forma 
((errónea» ? 
Todos los lenguajes de programa- 
ción han previsto que en un momen- 
to dado interesa saltarse las reglas, 
y el método escogido para indicár- 
selo al ordenador es casi siempre el 
mismo, derivado de la forma mate- 
mática normal de operar, 


Gracias a los 
paréntesis 


Sí, es como te enseñaron en el co- 
legio, mediante el uso de paréntesis. 


Obtendremos 64 si escribimos: 
PRINT (5+3)*8 
Esta es la regla general para las 4 
operaciones básicas, pero en el ca- 
so de la multiplicación y división el 
asunto está un poco menos claro de- 
bido a la propiedad conmutativa de 
la multiplicación. 
En efecto, MATEMATICAMENTE 
es lo mismo calcular: 


PRINT 5*8/5 


que 


PRINT (5*8)/5 


o bien 


PRINT 5*(8/5) 
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aunque aún en este caso, las reglas 
de precedencia se siguen al pie de la 
letra. Sin embargo, las propiedades 
matemáticas de los operadores le 
juegan una mala pasada a la clari- 
dad. 
Un poco más complejo es el tema 
de «juguetear» con números fraccio- 
norias. ¿Podría usted predecir los po- 
sibles resultados de: 
5/4 + 5 * 18/9-27 
o algo parecido? 
Espero que no, porque yo desde 
luego no puedo. Si es capaz de ello, 
mis más sinceras felicitaciones. Para 
aquellos que tenemos una mente me- 
nos rápida y un ojo menos agudo, la 
regla de oro es la siguiente: en la du- 
da, utilice los paréntesis, que para 
eso están, 
Es la única forma segura de no 
equivocarse y obtener resultados dis- 
paratados en su programa debido a 
errores que, como éstos, son difíci- 
les de depurar, 
Segunda regla de oro: deje que su 
ordenador haga la mayorcanfidad 
de trabajo posible. Usted sólo sién- 
tese y disfrute. 


La exponenciación 


l' 
¡ 


A nivel de operaciones básicas, 
nos queda por hablar solamente de 
la exponenciación, esto es, la opera- 
ción matemática que toma un núme- 
ro, llamado BASE y lo multiplica tan- 
tas veces por sí mismo como indique 
un segundo número, llamado expo- 
nente, Se representa así: AiB, en 
donde A es la base, 
El estudio de esta operación impli- 
ca interesantes posibilidades de 
aprender mucho más acerca del tra- 
tamiento de los números y de los lí- 
mites de cálculo del Amstrad y de los 
ordenadores en general. Atención a 
lo que sigue. 
Lo primero que uno podría plan- 
tearse es hasta dónde llega la tan ca- 
careada capacidad de cálculo de los 
ordenadores, del Amstrad. 
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En efecto, por muy potente que 
sea un micro, el rango de números 
que puede calcular debe tener un lí- 
mite, fundamentalmente porque los 
números, al representarse interna- 
men,te en el ordenador, ocupan me- 
mona, 
Cada máquina tiene asignado un 
número fijo de bytes para represen- 
tar un número y ahí se alcanza el te- 
cho de cálculo, 
¿Cómo averiguarlo? Bien, el méto- 
do de «la cuenta de la vieja» nunca 
falla, así que podríamos ordenarle al 
Amstrad que imprimiera 3 elevado a 
1,000, por ejemplo, 
Probablemente, el número astro- 
nómico que resulta sobrepasaría la 
capacidad de cálculo del ordenador, 
con lo que un oportuno mensaje de 
error nos forzaría a reintentar con 
otro número más pequeño. 
Esta manera de proceder no es 
precisamente muy astuta, 


Tomarle el pelo al 
Amstrad 


Nosotros, que se supone que pen- 
samos, podemos aprovecharnos de 
la estupidez del micro, para que nos 
diga de una sola vez el rango de nú- 
meros que puede manejar. 
Los matemáticos llevan diciendo 
hace mucho que un número dividido 
por cero es «infinito», es decir, pri- 
mero, que si dividimos algo por na- 
da, como resultado debemos obte- 
ner una cifra gordísima y segundo, 
al no saber exactamente cuál es, la 
llamamos «infinito» y listo, 
Para una persona, este razona- 
miento resulta claro, pero para el 
Amstrad lIinfinito» quiere decir el 
máximo número que puede repre- 
sentar, 
Por tanto, la orden: 
PRINT 3/0 
mostrará en pantalla el techo de cál- 
culo del ordenador, 
Este número es del orden de 10 
elevado a 38, es decir, un 1 seguido 
de 38 ceros (mil millones es un 7 se- 
guido de 9 ceros),. una cifra inimagi- 
nable. . 
Bueno, el primer punto resuelto. El 
cálculo del techo inferior es igual de 
simple: 
PRINT (3/0)i-1 
o sea, le decimos al Amstrad que di- 
vida un 1 entre (3/0) [«infinito»]. El 
resultado será «menos infinito», el 
número más pequeño que el ordena- 
dor puede manipular. En este caso, 
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PROGRAMAS 


10 REM PROGRAMA NUMERO 
20 ON ERROR GOTO 280 
:
)O 
40 CL.S 
50 OVE"'r + 1 ni
¡. er- r- ur' =6: () 1:: =0: f 1 c{g . er r- nr' 
=0 
60 
70 
80 
90 
100 

 10 PRINT"C¿
l C:U] dJ\de, " 
120 r-es='bas8""e:: 
1.30 
140 G()
3UB 240 
150 
160 F'RINT basE'; "e] eVi;do C1.";e:-:; "ve,le 
: 11 ; r- es 
170 ('¡'JEND 
180 Ef\.ID 
190 
200 INF'UT "Ba£:,e: '1 
 ba==.E' 
210 INPUT "E:':ponto?nte: "
e:: 
220 RETURN 
230 
240 1 F flag. er- r' or- TH
N F'fU NT" Ha h ab 
ido un over-flow":F'RINT"El ma:,:imo e:-: 
ponente po:,j bl E: 
?s:"; £
;: 
250 f 1 i:l9. erTOr"=(I 
260 RETURN 
270 
280 IF ERR<)over-flow.er-ror- THEN RES 
UME NEXT 
290 flag.err-or-=-l 
300 e:-: ==e:,: -1 
310 RESUME 
320 


WHILE 
',!OT ok 
GOSUB 200 


aparece en la pantalla una cifra del 
orden de 10 elevado a -39, 
¿Y qué pasa cuando nos salimos 
del rango permitido? 


. fuera de rango 


Entonces, el Amstrad nos obsequia 
con un lacónico mensaje de error: 
«overflow», que traducido al espa- 
ñol significa «sobrepasa miento» y el 
programa se detiene. 
Lejos de representar un inconve- 
niente en los programas en los que 
usemos cálculos numéricos, podemos 
aprovechar este error de una forma 
muy conveniente, como por ejemplo 
en el programa número 1. 


Este programa calcula el máximo 
exponente al cual puede elevarse un 
número para no salirse del rango de 
cálculo del Amstrad. 
El procedimiento es muy simple, ya 
que sólo pueden suceder dos cosas: 
a) El resultado de elevar un nú- 
mero (la base) al otro (el exponen- 
te) cae dentro del rango de cálculo 
del micro, Estupendo, lo imprimimos 
y punto, 
b) El resultado cae fuera de ran- 
go: se produce un error overflow, lo 
detectamos mediante la sentencia 20 
del programa, varíamos el exponen- 
te y repetimos el intento. 
Por tanto, el programa 1 consta de 
cuatro partes: 
1) bucle principal (sin fin): líneas 
70-170; 



2) subrutina de entrada de datos: 
líneas 200-220; 
3) si ha ocurrido un error de over- 
flow, se imprime un mensaje en pan- 
talla, indicando el valor máximo po- 
sible del exponente: líneas 240-260; 
4) subrutina de captura de erro- 
res: líneas 280-310, 


Maneio de errores y 
cálculo numérico 


La parte 4 del programa es el 
meollo del asunto; en efecto, siga- 
mos los pasos del ordenador cuan- 
do se produce un error. La máquina 
salta, por efecto de la línea 20, a la 
rutina de la línea 280. 
Esta línea comprueba que el valor 
numérico del error ocurrido sea igual 
al de la variable «overflow.error» 
(cada error posee un código numé- 
rico asociado; el 6 corresponde a 
overflow; ver capítulo 7 del manual). 
Si no lo es, nadie nos ha invitado a 
esa fiesta, por lo que optamos por ig- 
norarlo mediante la orden: 
RESUME NEXT 
que fuerza al Basic a «pasar» de esa 
línea y ejecutar la siguiente, Aquí no 
ha pasado nada. 
Si efectivamente el error detecta- 
do es el número 6, en la línea 290 la 
variable «flag.error» se pone a 1 
para indicar a la rutina de la línea 
240 que imprima un mensaje cuan- 
do le toque. Las líneas 300 y 310 son 
la auténtica clave del programa, 
Cuando la rutina de error llega a 
esta línea, el valor de la variable 
«ex», que representa al exponente, 
se decrementa en una unidad, y en 
la línea 310 la orden: 


/ 


, 
I 


RESUME 


obliga al Amstrad a continuar la eje- 
cución EN LA MISMA LlNEA DE 
PROGRAMA DONDE SE PRODUJO 
EL ERROR, es decir, en la línea 120, 
Esto implica que el ordenador re- 
petirá el cálculo de nuevo, pero con 
el exponente decrementado en una 
unidad, y lo hará una y otra vez has- 
ta que en la línea 120 no se produz- 
ca error alguno, o sea, cuando el ex- 
ponente sea el máximo al que pode- 
mos elevar la base sin salirnos del te- 
cho numérico del micro. 


Interesante, ¿verdad? 
Sin embargo, el programa no es 
perfecto. Como se observará al ju- 
gar con él un rato, con los números 
enteros o reales positivos todo mar- 
cha a pedir de boca, pero con los ne- 
gativos al usar un exponente muy 
bajo el resultado final es cero. 
El Amstrad se niega a considerar 
un error el overflow por «debajo», 
¿Alguien podría explicar por qué? 
Y, sobre todo, ¿alguien podría ex- 
plicar por qué a nosotros? 
Le quedaríamos muy agradecidos, 
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Quiniela siempre suena a dinero, a idilio con la suerte. 
Los ordenadores no pueden calcular rigurosamente todas las 
innumerables posibilidades de un boleto quinielístico, pero sí 
pueden seleccionar uno, en base de una serie de criterios 
(estrategia) elegida por el programador,-y, además, hacer 
mucho más sencillo el tedioso protocolo del relleno de los 
boletos. 
Así que, adelante: los 14 duermen en la RAM de tu Ámstrad. 


l' 


amo su propio nombre in- 
dica, este programa es una excelen- 
te aplicación para el d - sarrollo de 
nuestros boletos quinielísticos, 
El autor señala en su extenso y de- 
tallado comentario de funciona- 
miento del programa qu , ha escogi- 
do un método, un tanto lor «decre- 
tO)), para clasificar lógi-amente los 
partidos, de forma que l. posibilidad 
de obtener un 1, X ó 2 en un deter- 
minado encuentro es di tinta. 
Lleno de modestia, Javier llama a 
su programa «cuasialeatorio)); uste- 
des decidirán sobre lo acertado o no 
de la denominación. 
En el peor de los casos, lo que no 
se puede discutir es que el programa 
simplifica extraordinariamente el te- 
dioso proceso de rellenar boletos. 


DESCRIPCION 


El programa permite realizar 
apuestas quinielísticas, de una sola 
columna o de ocho columnas, limi- 
tando a voluntad del 'usuario el nú- 
mero de doses. 
En el caso de una sola columna 
existen tres opciones. En la primera 
opción, una sola apuesta, se puede 
escoger el número de variantes. En 
la n. o 2, el usuario puede fijar para 
cada partido si será triple o doble. 
En la n. o 3, el usuario fija la canti- 
dad de triples o dobles, asignando 
el ordenador los mismos, según un 
cálculo de probabilidades. 
Para los boletos de ocho colum- 
nas, el usuario selecciona el número 
de fijos y el de variantes. Los fijos 
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Realizado por el lector: 
J. ARACIL XARRIE (Barcelona) 


COMPATIBLE 
CPC 464 
CPC 664 
CPC6128 


pueden ser asignados por el usuario 
o por el ordenador. 
El programa comienza con la ac- 
tualización de la clasificación de los 
equipos de 1. a y 2. a división. Dicha 
clasificación sirve de base para el 
cálculo de probabilidades de cada 
partido de la quiniela. Como base 
del cálculo se ha establecido que con 
una diferencia de potencial «O», en- 
tre la clasificación del equipo local y 
la del visitante, existe un 50 por 100 
de probabilidades de que el resulta- 
do sea «1 )), un 30 por 1 00 de «X» y 
un 20 por 1 00 de «2)), Estos porcen- 
tajes varían en relación a las distin- 
tas diferencias de potencial de cada 
partido. 
El programa puedes ser conside- 
rado cuasialeatorio, debido al cálcu- 
lo de probabilidades que efectúa pa- 
ra coda partido, teniendo en cuenta 
la «lógica)) de la clasificación de los 
equipos. 


, . 
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Nota: el parpadeo de la pantalla indica que el 
programo está esperando o que se pulse uno 
tecla, 
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ESTRUCTU' 
 


Líneas 
10-90 
120-220 
230-500 
510-940 
950-1170 
1180-1480 


1690-1770 
1780.2000 


2010- 2350 


2360-2720 
2730-2930 


Cometido 
Inicio, 
Menú inicial. 
Actualización clasificación equipos de 1, a y 2, a 
Confección de la quiniela, 
Menú de apuestas, 
Resguargo quiniela de una columna, Las cifras entre paréntesis 
indican la clasificación de cada equipo, 
Quiniela de una sola apuesta (1 columna). 
Quiniela de una sola columna eligiendo el usuario los triples y los 
dobles, 
Calcula la diferencia de potencial de ambos equipos, la cual sirve de 
base para acotar el campo de posibilidades de cada signo, Un 
número aleatorio «sort» determina, según las probabilidades de cada 
signo, el resultado del partido, 
Quiniela igual que la anterior, pero eligiendo el ordenador los triples 
y los dobles, según las distintas diferencias de potencial de los 
equipos, 
Requisitos boletos de 8 columnas, 
Resguardo quiniela boleto de 8 columnas, 


PRINCIPAL S VARIABLES 


.' 
 1 


eq&(x) 
eqc 1 &(x, y) 
c 1 (x) 
e1q&(x) 
evq&(x) 
comb&(x) 
ce 1q(x) 
cevq(x) 
uxd(x) 
part(x) 
nt(x) 
nvar 
mdos 
dp 
p1 
pX 
sort 
nbol 
nfij 


Equipo antes de clasificar. 
Equipo después de clasificar. 
Variable usada para clasificar, 
Equipo local quiniela, 
Equipo visitante quiniela, 
Triple o doble. 
Clasificación equipo local quiniela, 
Clasificación equipo visitante quiniela, 
Indica el signo del resultado, 
Indica si es triple, doble o sencillo, 
Número tabla diferencial de potencial. 
Número de variantes, 
Número máximo de doses, 
Diferencia de potencial. 
Probabilidades del signo « 1», 
Probabilidades del signo «X», 
Número aleatorio para el cálculo de probabilidades, 
Número de boletos, 
Número de fijos, 
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10 .********** QUIN 
lELA *************** 
20 'Autor: Josep Aracll 1 Xarrie 
30 'Setiembre 1985 
40 CLS:MODE 2:PAPER O:PEN l:clasl-0 
:clas2-0 
50 DIM eq$(20).eqcl$(2,201,cl(201,e 
lq$(14) .evq$(14) ,comb$(14), 
celq(20),cevq(20),uxd( 
14), part (14), nt (38) 
60 SOUND 1.100,:'0.7 
70 MODE O:LOCA
E 
.12:PRINT "1 - X 
- 2 11 
80 GOSUB 100 
90 MODE 2:GOTO 120 
100 c$ INK£Y$:IF c$="" THEN BORDER 
I:BORDFR 5:BORDER I:BORDER 5:BORDER 
1: BORDER 7: GOTO 100 
110 c$=UPPER$(c$):RETURN 


,
 . I 
r'.u,/('Wil . ) 
It, " 1\ I . 
'1'" 11 I - 0" I 
'" f', \1" ", 
" ,1, \
..II .t...., ¡: 
'" '1...' '
:': lf tl , ,,', 
" ". 
L 
. l. 
" ". ' h' . 
'" r l .. ". 'ir 
, '1 1 
.t"l Ar'!\\
 
. r. . "U 1 
. , 
 l\

 'tll' 1 
ti::: II.
 . y.,;-v' Ir. 
¡rO, 1. " 
" I (, l' ,lo If 


120 '********** MENU INICIAL ****** 
**** 
130 8S:S0UND 1,100,20.7 
140 LOCATE 24,8:PRINT "MENU INICIAL 


150 LOCATE 
4.9:PRINT "======---=== 


160 LOCATE 16,12:PRINT "1.- CONFECC 
IONAR LA QUINIELA" 
170 LOCATE 16,14:PRINT "2.- CARGAR 
LA QUINIELA GRABADA" 
180 LOCATE 7,18:PRINT "ELECCION '? 


190 GOSLJB 1(10 
:?oo ..-VAL(c$):IF e,1 OR e>2 THEN 19 
(1 
210 IF e
1 THEN GOTO 230 
720 IF e=2 THEN GOSUB 3740:GOTO 950 
230 '******* ACTUALIZACION CLASIFIC 
ACIONES EQUIPOS ******** 
240 SOUNO 1,IOO,20.7:div-1 
250 IF div=1 THEN equlps=18 EL SE eq 
lli ps '2(1 
2nO CLS:PRINT "ACTUALIZACION CLASIF 
ICACION ":dlv;" DIVISION" 
270 PRINT "----------------________ 
----------------":PRINT 
280 FOR i-I TO equips:cl (i)-O:NEXT 


i 
290 GOSUB :,470 
300 FOR n-I TO equips 
310 LOCATE l,n+3:PRINT eq$(n):LOCAT 
E 20,n+3:PRINT "LUGAR EN LA CLASIFI 
CACION :" ;: INPUT clas 
320 IF clas>equlps THEN 350 
3
0 FOR 1=1 TO n: IF cl (1 )=clas THEN 
350 
340 NEXT i:GOTO 360 
350 PRINT "ERROR EN EL NUMFRO DEL E 
QUIPO !!! ":LOCATE 30,n+3:PRINT cla 
s: GOSUB 100:PRINT " 
" : LOCA 
PRINT " 


TE 30.n+3: 
":GOTO 310 
360 cl (n)=clas:LOCATE 
cla¡; 
. 


14,n+3:PRINT 
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370 clas$-eq$(n):eqcl$(div.clas)=cl 
as$ 
380 NEXT n:PRINT 
390 CLS:PRINT "ACTUALIZACION CLASIF 
1 CAC 1 ON "; di v;" DI V 1 S ION" 
400 PRINT "------------------------ 
----------------":PRINT 
410 FOR n-I TO equip's 
420 PRINT n:TAB(5Ieqcl$(div,n) 
430 NEXT n 
440 PRINT TAB(40)" ESTA BIEN LA CLA 
SIFICACION (S/N) '?" 
450 GOSUB 100 
460 IF c$<>"S" AND c$<>uN u THEN 450 
470 IF c$="N" THEN 250 
480 IF c$="S" THEN IF dlv=1 THEN el 
asl-l:div=2:GOTO 250 
490 IF c$ "S" THFN IF div=2 THEN cl 
as2=I:GOTO 510 
500 GOTO 450 
510 '******* CONFECCION DE LA QUINI 
ELA *UU**** 
520 CLS:SOUND 1,100,20,7 
530 IF elasl=O THEN PRINT "FALTA AC 
TUALIZAR LA CLASIFICACION DE 1 DIVI 
SION": div=I:GOSUB 100:GOTO 
250 
540 IF clas2-0 THEN PRINT "FALTA AC 
TUALIZAR LA CLASIFICACION DE 2 DIVI 
SION": div 2:GOSUB 100:GOTO 
250 
550 INPUT "JORNADA Nr. : "¡jorn 
560 div=1 
570 LOCA TE 1,4 
580 FOR i-l TO 18 
590 PRINT i¡TAB(5)eqcl$(dlv.i) 
600 NEXT i 
610 div=2 
620 WINDOW 
1,20,39,4,24 
630 FOR j-l TO 20 
640 PRINT 
I,j+20;TAB(5)eqcl$(div,j 
) 
650 NEXT J 
660 WINDOW #2,40,80,1,2
 
670 PAPER 
2,0:PEN #2,1 
680 LOCATE 
2,I,I:PRINT 
2,"CONFECC 
ION QUINIELA 'c' para corregir" 


690 LOCATE #2,1,2:PRINT 
2,"------- 


700 FOR par=1 TO 14 
710 LOCATE #2,19,4:PRINT 
2," 
720 LOCATE 
2, 19,6:PRINT 
2," 
730 LOCATE 
2,1,8:PRINT 
2." 


740 LOCATE 
7,1.4:INPUT 
2,"EQUIPO 
LOCAL : ":>:$ 
750 IF x$="c" OR x$ "C" THEN par=pa 
r-l:LOCATE 
2,I,par+9:PRINT 
2," 


:GOTO 700 
760 LOCATE 
2,I,6:INPUT 
2,"EQUIPO 
VISITANTE: ":y 
770 ,,=VAL(,,$) 
780 IF x<19 AND y>19 THEN GOSUB 940 
:GOTO 710 
790 IF x>19 AND y<19 THEN GOSUB 940 


: GOTO 71(1 
800 IF x-y THEN GOSUB 940:60TO 710 


810 IF x<19 THEN elq$(par)-eqcl$(I, 
x):evq$(par)-
qcl$(I,y): 
celq(par)=x:cevq(par) 
=y 
820 IF x>19 THFN elq$(pRr)=eqcl$(2, 
x-20):evq$(par)-eqcl$(2,y-20): 
celq(par)=x-20:cevq(p 
ar-)=y-20 
830 FnR 1=1 10 par-lo IF elq$(par)=e 
lq$(i) OR elq$(par)=evq$(i) THEN 86 
O 
840 IF evq$(par)=evq$(l) OR evq$(pa 
r)=elq$(i) THEN 860 
850 NEXT i,GOTO 870 
860 GnSLJR 940:GOTO 710 
870 LOCATE #2.I,par+9:PRINT #2,par; 
TAB(5)elq$(par);TAB(17)"-": 
TAB(20)evq$(parl 
880 NEXT par 
890 LOCATE #2,I,par+10:PRINT #2," E 
STAS DE ACUERDO (S/N)" 
900 GOSUI:< 100 
910 IF c$<>"S" AND c$<>"N" THEN 900 


920 IF c$="N" THEN 510 
930 GOSUE< 3550:GOTO 950 
940 LOCATE 
2,1,8:PRINT 
2,"ERROR E 
N EL Nr.DE LOS EQUIPOS":GOSUB 100:R 
ETURN 
950 '****** MENU DE APUESTAS ****** 
960 CLS:SOUND 1,100,20.7 
970 PRINT " COMBINACIONES AUTORIZAD 
AS n 
980 PRINT " ----------------------- 
--":PRINT 
990 LOCATE 1,4:PRINT "TR!. DOB. P 
RECIO TR!. DOB. PRECIO" 
1000 LOCATE 2,6:PRINT 
(1 2 1 270 


30 2 2 54CJ 
2 60 2 
3 1080" 
1010 LOCATE 2,9:PRINT 3 
120 2 4 2160 
4 240 2 5 4320 
5 480 3 
405 11 
1020 lnU,Té 2.1:::PRINT " 6 
960 3 .. 1620 
7 1920 
 "7 3240 
"' 
8 3840 
 

, 
4 6480" 
1030 LOCATE 2,1:'i:PRINT " 2 
180 4 1215 

 360 4 2 4860 
'.' 
4 720 5 
1 7'290" 
1040 LOCATE 2,18:PRINT " 5 


SUBR U TINA S 


Líneas 
100-110 
1490-1680 
2940-3070 
3080-3240 
3250-3350 
3360.3460 
3470-3540 
3550-3700 
3740-3900 


Cometido 
. Subrutina «inkey&», 
Cálculo quiniela de 1 columna, 
Cálculo boleto de 8 columnas, 
Elección de fijos por el ordenador en relación a las diferencias de potencial. 
Dibujo del boleto de 8 columnas, 
Columna boleto de 8 columnas, 
Clasificación inicial de los equipos de 1.0 y 2,° 
Grabación de la quiniela, 
Lectura de la quiniela del cassette, 



¡ T r. I I I 
 1" . 


l' 11,., 10 


I 
\: 
l' 
¡: 
" 


¡ l' 
I ¡¡: 
i 11' 
I 11\ 


tI 


l. 


,. /1" 


1,.' , 
4,. " 


1440 
1 
1<'150 
1060 


5 


2 


14580 


" 2880" 
PLOT 0,330:DRAWR 320,0 
F
OT 

0.
50:DRAWR 0,-270 


1070 PLoT 150,350:DRAWR 
320,350:DRAWR 0,-270 
ln80 LoCATE 50,4:PRINT 
ESTAS" 
1090 LoCATE 50.
:PRINT 


0,-270:PLoT 


"MENU DE APU 


11___________ 
------- - 


1100 LoCATE 45,8:PRINT "1.- UNA SOL 
A APUESTA" 
1110 LoCATE 45,10:PRINT "2.- ELECCI 
oN POR EL USUARIO" 
1120 LoCATE 45, 12:PRINT "3.- ELECCI 
oN POR FL ORDENADOR" 
1130 LoCATE 45,14:PRINT "4.- BOLETO 
DE 8 COLUMNAS" 
1140 LOCATE 45, 18:PRINT "ELECCION ? 


:11 


1150 GoSUI'< 100 
1160 e=VALCc$): IF e(1 OR e>4 THEN 1 
150 
1170 oN e GOTo 1690,1780,2010,2360 
1180 '****** RESGUARDO QUINIELA 1 C 
oLUMNA ******** 
1190 GOSUB 1490 
1200 IF dos(-mdos THEN 1210 ELSE 11 
90 
1:10 IF op(>1 oR varS="A" THEN 1230 
ELSE 1220 
1220 IF va=nvar THEN 1230 EL SE 1190 
1230 CLS:SoUND 1,100,20,7 
1240 PRINT TAB(25) "RESGUARDO" 
125<'1 PRINT TAB(25) "===--- ":PRINT 
1260 PRINT "JORNADA Nr.: ";jorn 
1270 ap=
htri*2Adob:pre=ap*15 
1280 PRINT "Nr.DE APUESTAS: "+STRS 
(apl+" ("+STRS(tri)+" TRIPLES i"+ST 
R$Cdob)+ " DOBLES 1" 
1290 PRINT "COSTE DE LA QUINIELA : 
11+5TR$Cpre)+11 pts ll ; 
I
OO IF op=1 THFN PRINT TAB(491"Nr. 
DE VARIANTES: ";14-nvar 
1310 FOR par=1 To 14 
1320 LOCATE l,par+7:PRINT "PARTIDO 
Nr."¡TAB(12)STR$(parl;TAB(18)elq$(p 
ar); TAB(33)" (";TAB(:,4)ce 
lqepar);TAB(38)")";TAB(41)"-";TAB(4 
4)evq$epar); TAB(59)" e" 
;TAB(60)cevqepar);TAB(641"1" 
1330 pro=uxd(par) 
1340 ON pro GOTO 1350,1360,1370,138 
0,1390.1400 
1350 aS-"1 ":GOTo 1410 
1360 aS=" X ":GOTo 1410 
1370 a$-" 2":GoTO 1410 
1380 a$="1 X ":GoTo 1410 
1390 aS=" X 2":GOTO 1410 
1400 a$=" 1 X 2" 
1410 LOCATE 68,par+7:PRINT a$ 
1420 NEXT par 
1430 PRINT :PRINT "QUIERES HACER oT 
RA (SI/NO> O VOLVER AL MENU (M)?" 
1440 GoSUB 100 
1450 IF cS<>"S" AND c.()"N" AND c$( 
>"M" THEN 1440 
1460 IF cS="M" THEN 950 


1470 
1480 
1490 
UMNA 
1500 
ANDO 
1510 va=O:dos O 
1520 FOR i=1 TO 14:uxd(il-0:NEXT i 
1530 FOR qUl-l TO 14 
1540 dp-eelq(quil-cevq(qui) 
1550 pl-50+dp*2 
1560 px-30-dp 
1570 sort=INT(100*RND+l) 
1580 IF op-l THEN 1640 
1590 IF partequi)=3 THEN UXd(qUl)=6 
:GOTo 1670 
1600 IF part(qui)=2 THEN 1610 ELSE 
1640 
1610 IF sort>O AND sort(=pl 
EN uxd(quil=4:GOTO 1670 
1620 IF sort>pl AND sort<=pl+px TH 
EN uxdCqui)=4:GoTO 1670 
1630 IF sort>pl+px AND sort<=100 TH 
EN uxd(qui)=5:GOTO 1670 
1640 IF sort>O AND sort<=pl 
EN uxd(qui) l:va-va+l:GoTO 1670 
1650 IF sort>pl AND sort(-pl+px TH 
EN UXd(qUl)-2:GOTO 1670 
1660 IF sort>pl+px AND sort(-100 TH' 
EN uxd(qui)=3:dos-dos+l:GOTO 1670 
1670 NEXT qui 
1680 RETURN 'uxdl=1 / 2-, 
x / 3-2 / 4-1x / 5-x2 / 6 lx2 
1690 '****** UNA SOLA APUESTA (1 CO' 
LUMNA) *********** 
1700 CL S: C;OIIND 1. Ion. :'0, 7 
1710 Ln
ATE 27. 1::PhINT "CUANTAS VA 
RIANTES OlJItRFS :" 
17:'0 LOCATE 5.74:PRINT "TECLEA 'A" 
SI QlIIERE'S Dl'E SEA AL FATORIO" 
1730 LorATE 50, 17:INPUT var$:nvar-V 
Al (var $ I : 'Wilr - 14-r,'Jar : var $=UPPER$ (v 
ar$) 
1740 IF vilr$""A" THEN IF nvar(O OR 
nvar "14 TIiEN 17;';0 
1750 1 OCATF 2
,14:INPUT "Nr. MAXIMO 
DI" 2 : ":mdos 
176(' Fr:R i=1 TO 14:part (1 )
O:NEXT 
1770 op=I:GoTO 1180 
1780 '******** ELECCION POR EL USUA 
RIO (1 COLUMNAI ********* 
1790 nS,SOUND 1,100,20,7:lri-0:dob 
=(1 
1 A('O F'R I NT " ELECC 1 ON POR EL USUAR 1 
O" 
1810 PRINT " ---------------------- 


IF eS "S" THEN 1180 ELSE 1480 
END 
'****** CALCULO QUINIELA 1 COL 
** ** ** 
CLS:LOCATE 30,1:?:PRINT "CALCUL 


. 


1820 INF'lJT " Nr. DE TRIPLES , ":trl 
1830 F'RINT TAB(28)"";CHR$(II>;:INPU 
T "Nr, DE DOBLFS : ":dob 
1840 PRINT TAB(53)"";CHR$(111::INPU 
T "Nr. MAXIMO DE 2 : ":mdos:F'RINT 
IB
O ap=
Atrl*7Adob:prp=ap*15 
1860 PRINT " Nr. DE APUESTAS :";ap: 
" PRECIO :";pre: 
" pts DE ACUERDO 


., (S/N) " 
1870 GOSUB 10n:PRINT 
1880 IF c$:)"S" AND c$:)"N" THEN 18 
70 
1890 IF rS-"N" THEN 1780 
1900 PRINT " QUINIELA JORNADA Nr "¡ 
jorn:TAB(
O)"ELECCION 
OMBINACIONES 


1910 PRINT " ---------------------- 
-":TAB(30) ,,----------------------", 
PRINT 
1920 FOR j=1 TO 14:partCl)=0:NEXT 
1930 FOR qui=l TO 14 
1940 PRINT qul¡TAB(6)elqSCqul):"- 
:evqS(qui):TAB(
O) 
, "(T riples-D obles-S 
enci 110) II
 
1950 INPUT 
omb$(qui):comb$(qui) UP 
PFR$ (comb$ (qui ) ) 
1960 IF combS(qui)()"T" AND comb$(q 
ui){)"D" AND combS(qui)()"S" THEN 1 
950 


erie Oro 


TH 


1970 IF rr,mb$(Cjl\i )-"1" THEN part (qu 
i) 3:tri-tri+l 
J 980 IF comb$ (qLIl I ="D" THEN part (qu 
i)=2:dob=dob+l 
1990 NEXT Cjl\l:PRINT 
2000 op=2:GOSUB I
J:GOTO 1180 
::,oln "********* El 

CION POR EL ORD 
ENADOR (1 COLlIMNA) ********* 
2070 CLS:SOUNO 1,IOO,20,7:tri O:dob 
-0:op=3 
7030 LOCATE 20,6: F'RINT "ELECC!(lN PO 
R EL ORDENADOR" 
2040 LOCATE 20,7: r'R HIT "-------- --- 


TH 


--------______" 
2050 LOCATE 20. lO: INF'UT IINr. DE TRI 
PLES : O;trl 
2060 LOCATE 20.12: INPUT IINr. DE DOB 
LES : "; dob 
2070 
p-3htri*2Adob
pre dP*15 


2080 LOCA TE 20.14:PRHIT "Nr. DE APIJ 
ESTAS :": 
p: " PREC 1 () :": pr 
e; 11 pts" 
2090 LOCA TE 20.16: INPUT "Nr. MAXHtO 
DE 2 : ";mdos 
2100 LOCAH, 20.19: PRINT "ESTAS De A 
CUERDO" (S/N)" 
2110 GOSUB 100 
2120 IF cS<>"S" AND c$<)"N" TH
N 71 
lO 
2130 IF cS="N" THEN 2010 
2140 CLS,LOCATE 30,12:PRINT "CALCUL 
ANDO 
2150 RESTORE 7190 
2160 FOR i=1 TO 38 
2170 READ ntC1I 
2180 NEXT i 
2190 DATA -7,-6,-8,-5,-9,-4,-10,-
. 
-11, -2 
2200 DATA -12,-1,-13.-14.1,-15.:.-1 
6,3.-17 
2210 DATA 4,-18,5,-19.6,7,8,9.10.11 
2220 DATA 12,13,14,15.16.17,18,19 
2230 tr=O:do=O:FoR 1=1 TO 14:partCl 
)=O:NEXT 
2240 FOR j=1 TO 38 
2250 FOR qUl=1 TO 14 
2260 dp=celq(qul)-cevq(qui) 
2270 IF part(qul)=3 THEN 2340 
2280 IF partCquil 2 THEN 2340 
2290 IF tr=t. 1 THEN IF dob=O THEN 
180 
2300 IF dob)O THEN IF do-dob THEN 
180 
2310 IF tr=trl THEN 2330 
2320 IF dp=nt(J) THEN part(qul) 3:t 
r-tr+l:GOTO 2340 
2330 IF dp=nt(j) THEN part(qui):2:d 
o-do+I:GOTO :340 
2340 NEXT qLli 
2350 NEXT J 
2360 .******** BOLETO DE 8 COLUMNAS 
****** ** 
2370 CLS:SoUND 1,100,20,1:op 4:f O 


2380 FOR i 1 TO 14:partCI) O:NEXT 
2390 LOCATE 20,7:PRINT "QUNIELA DE 
8 COLUMNAS" 

40n I nrATF "0,8:PRINl "=-- 


______ ____lO 
--- ------- 


241 (1 1 OCATE 
O, 11: INF'UT "Nr. DE BOL 
ETOS :": nbol 
"4
<'I I C1
ATE 50,II:PRINT "PRECIO: " 
: 170*nbol;" pts" 
74::'0 LOCATE 20. 13: INPUT "Nr. DE FIJ 
(1S (1) : ":nflJ 
"2440 l_oCATE 20, 15: 1 NF-'UT "Nr. DE VAR 
IANTES : ":nvar:nvar=14-nvar 
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::'450 LOCATE 2c1, 17: INPUT "N,... MAXIMO 
DE '2 : "¡mdos:PRINT 
2460 LOCATE 20,20:PRINT "ESTAS DE A 
CUERDO (S/N) ?" 
2470 GOSUf< 100:F'RINT 
7480 IF cS< >"S" AND cS< >"N" THEN 24 
70 
::'490 IF cS-"N" THEN 2360 
2500 CLS:LOCATE 30,10:PRINT " FIJOS 
= 1 " 
:'510 LOCATE 30,II:PRINT " 


::'520 LOCATE 20, 13:PF:INT " LOS PONE 
EL ORDENADOR (S/N) ? " 
2530 GOSUB 1 N' 
2540 IF cS<>"S" AND cS<>"N" THEN 25 
30 
2550 IF C$-IISII THEN 2730 
2560 f=I:CLS:LOCATE 10,2:PRINT "QUI 
NIELA" 
2570 LOCATE 10,3:PRINT "---------,, 
7580 FOR qul=1 TO 14 
2590 PRINT qul;TAB(7)elqS(qul);TABI 
20)"-";TABC23)evqS(qul) 
2600 NEXT qul 
2610 LOCATE 40.2:PRINT "N,... DE FIJO 
S : ";nflJ 
2620 LO
ATE 40,3:PRINT ,,----------- 


______11 


2630 FOR 1 1 TO 'Ilflj 
2640 LOCATE 52,9:PRINT " 
2650 LOCATE 40.7:PRINT "FIJO N,... 


lI;i 


:::660 LOCATE 40,9: INPUT "PARTIr N,.., 
: ":qui:pal"tequl)=1 
2670 LOCATF 40,12+1:PRINT elqS(qul) 
:TAB(54)"-":TAB(57)evqSCqul) 
2680 NEXT 1 
2690 LOCATE 40,22:PRINT "ESTAS DE A 

UERDO CS/N) ?" 
2700 GOSlJB 100 
2710 rF c$<>"S" AND cS<)"N" THEN 27 
00 
2720 IF c$="N" THEN 2500 
2730 '****** RESGUARDO BOLETO DE 8 
COLUMNAS * ** * ** 
2740 CLS:SOUND 1,100,20.7 
2750 LOCATE 22,12:PRINT "CALCULANDO 
.":IF f-O THEN GOSUB 3080 


2760 FOR bol=1 TO nbol 
:'770 CLS:SnUND 1,100,20,7:PRINT 
2780 PRrNT" JORNADA N,...: ";jol"n; 

79n P
INT TAR(
O)"NI". DE FIJOS: " 
; nf i j 
 
2800 PRINT TAB(60) "BOLETO N,... : ",b 
01 
2810 PRINT :PRINT" N,... DF VARIANT 
ES : "; 14-nval" 
2820 GOSUB :::250 
2830 FOR colum=1 TO 40 STEP 5 
2840 GOSUB 2940:IF va=nval" AND dos< 
-mdos THEN 2850 ELSE 2840 
2850 GOSUB 336(' 
2860 NEXT colum 
2870 GOSUB 100 
2880 NEXT bol 
2890 CLS:LOCATE 12,12:PRINT "QUIERE 
S HACER OTRA (S/N) O VOLVER AL MENU 
(M)"" 
2900 GOSUB 100 
2910 IF c$<>"S" AND c$<>"N" AND r$( 


l' 



,K 1 .11 
/UtI(1).II 
UIIIU " . 
I " 


,lo 


)"M" THEN 2900 
2920 IF e$ "M" THEN 950 
2930 IF e$="N" THEN END ELSE 2360 
2940 '**** CALCULO BOLETO 8 COLUMNA 
S ****** 
2950 va=O:dos=O 
2960 FOR 1-1 TO 14:UMdCI)=0:NEXT 1 
. 
2970 FOR qul=1 TO 14 
2980 IF pal"tCqul)=1 THEN uxdCqul)-1 
:va=va+l:GOTO 3060 
2990 dp eelqCqul)-cevqCqul) 
3000 pl=50+dp*2 
3010 px=30-dp 
3020 sOl"t=INT C 100*RND+l) 
3030 IF SOl"t>O AND sOl"t<-pl TH 
EN uMdlqul) l:va=va+l:GOTO 3060 
3040 IF sOl"t>pl AND sOl"t<=pl+px TH 
EN uMdlqul)=2:GOTO 3060 
3050 IF sOl"t>pl+px AND SOl"t< 100 TH 
EN uxd(qui)=3:dos=dos+l:GOTO 3060 
3060 NEXT qul 
3070 RETURN 'u"dl=1 / ..- 
x / 3-2 
3080 '**** ELECCION DE FIJOS POR EL 
ORDENADOR ** ** * 
3090 RESTORE 3130 
3100 FOR 1=1 TO 19 
3110 READ ntCi) 
3120 NEXT 1 
3130 DATA 19,18.17,16.15,14,13,1:',1 
1,10 
3140 DATA 9,e,7.6.5,4.3,2.1 
3150 fijo=O:FOR i-l TO 14'pal"tli)=0 
:NEXT 
3160 FOR j=1 TO 19 
3170 FOR qui=1 TO 14 
3180 dp-celqlqui)-cevqCqui) 
3190 IF fijo nfij THEN 3240 
3200 IF pal"tequi)=1 THEN 3220 
3210 IF dp=ntCj) THEN pal"tequl)-I:f 
ijo=fijo+l 
3220 NEXT qui 
3230 NEXT j 
3240 RETURN 
:>250 . ***U DIBUJO BOLETO 8 COLUMNA 
S ****** 
3260 PLOT 15.312:DRAWR 600,0 
3270 PLOT 15,312:DRAWR 0,-288:PLOT 
295,312:DRAWR 0,-288: 
, 
LOT 615,312:DRAWR O 
,-288 
3280 PLOT 15,232:DRAWR 600,0:PLOT 
5,152:DRAWR 600,0 
3290 PLOT 15,88:DRAWR 600,0:PLOT 15 
,24:DRAWR 600,0 
3300 LOCA TE 40,5:PRINT "1 2 3 
4 5 6 7 8" 
3310 FOR n=1 TO 4:LOCATE 3,n+6:PRIN 
T n,TAB(7)elq$ln)¡TABC20)"-";TABC23 
)evqS(n): NEXT n 
3320 FOR n-S TO 8:LOCATE 3,n+7:PRIN 
T n;TAB(7)elq$Cn);TABI20)"-"¡TABC23 
)evqS(n): NEXT n 
3330 FOR n=9 TO II:LOCATE 3,n+8:PRI 
NT n,TAB(7)elq$(n);TABC20)"-";TAB(2 
3)evq$Cn): NEXTn 
3340 FOR n=12 TO 14:LOCATE 3,n+9:PR 
INT n¡TAB(7)elq$ln):TABC20)"-";TABI 
23)evqSCn) :NEXT n 
3350 RETURN 
3360 .****** COLUMNA BOLETO DE 8 CO 
LUMNAS * ** ** * 
3370 FOR n-l TO 4:GOSUB 3420:LOCATE 
colum+39.n+6:PRINT b$:NEXT n 
3380 FOR 
=5 TO 8:GOSUB 3420:LOCATE 
colum+39,n+7:PRINT b$:NEXT n 
3390 FOR 
=9 TO II:GOSUB 3420:LOCAT 
E eolum+39.n+8:PRINT b$:NEXT n 
3400 FOR n
12 TO 14:GOSUB 3420:LOCA 
TE colum+39,n+9:PRINT b$:NEXT n 
3410 RETURN 
3420 col uxdCn) 
3430 ON col GOTO 3440,3450,3460 
3440 b$-"I":RETURN 
3450 b$="X":RETURN 
3460 b$="2":RETURN 
3470 '****** SUBRUTINA CLASIFICACIO 
N INICIAL ******* 
3480 IF dlV=1 THEN RESTORE 3520:GOT 


serie I rO 


o 3500 
3490 IF div=2 THEN RESTORE 3530 
3500 FOR 1-1 TO equips:READ eqS(l) 
-',510 NEXT I 

520 DATA BARCELONA,R.MADRID,BILBAO 
,GIJON.AT.MADRID,BETIS,ZARAGOZA,R,S 
OCIEDAD, SEVILLA, VALLADOLID, V 
ALENCIA,CADIZ,CELTA,OSASUNA.ESPANOL 
,SANTANDER, LAS PALMAS 
.HERCULES 
3530 DATA CARTAGENA,LOGRONES,HUELVA 
ELCHE MURCIA.CORUNA,CASTELLON,ARAG 
ON,' CASTILLA,R.VALLECANO 
SABADELL, SESTAO. ALBACETE 
tf:
RI FE. 
BARCELONA AT., OVIEDO,BIL 
BAO AT.,MALAGA,MALLORCA,AT.MADRILEN 
O 
3540 RETURN 
3550 '******** GRABACION QUINIELA * 
U****** 
3560 CLS:SOUND 1,100.20,7 
3570 LOCA TE 29,10:PRINT "GRABACION 
DE LA QUINIELA" 
3580 LOCATE 29,11:PRINT ,,---------- 


--------______" 


3590 LOCATE 26, 13:PRINT "PARA DISCO 
PULSAR CUALQUIER TECLA" 
3600 LOCA TE 12.15:PRINT "PARA CASSE 
TTE PULSAR **REC y PLAV** DESPUES Q 
UALQUIER TECLA" 
3610 GOSUB 100 
3620 SOUND 1,100.20,7 
3630 CLS:LOCATE 27,12:PRINT "LA QUI 
NIELA SE ESTA GRABANDO" 
3640 OPENOUT "!qulnlela" 
3650 PRINT #9,jol"n 
3660 FOR qul-l TO 14 
3670 PRINT #9,elq$(qul) 
3680 PRINT #9,evqS(qui) 
3690 PRINT #9,celqCqul) 
3700 PRINT #9,cevqCqul) 
3710 NEXT qul 
3720 CLOSEOUT 
3730 RETURN 
3740 '******* LECTURA DEL CASSETTE 
********** 
3750 CLS: SOUND \, 100. 20.7 
3760 LOCATE 26,12:PRINT "PARA DISCO 
PULSAR CUALQUIER TECLA" 
3770 LOCATE 16,14:PRINT "PARA CASSE 
TTE PULASR **PLAV**DESPUES QUALQUIE 
R TECLA" 
3780 GOSUB 100 
3790 SOUND 1,100,20,7 
3800 CLS:LOC,ÚE 20.12:PRINT "LA QUI 
NIELA SE ESTA CARGANDO EN MEMORIA" 
3810 OPENIN "!quinlela" 
3820 INPUT #9,jol"n 
3830 FOR qui=1 TO 14 
3840 INPUT #9,elqS(qui) 
3850 INPUT #9,evqSCqui) 
3860 INPUT #9,celq(qul) 
3870 INPUT #9,cevq(qul) 
3880 NEXT qui 
3890 CLOSEIN 
3900 RETURN 
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Para que lus dedo, 
no reo/icen e/lrobajo duro, M.H, MiS 
TRAD /0 hoce par li, Todos los lisiados que induyan 
esle logolipa se encuenlron o lu d,spasK,on en un (os. 
seffe mensual, solio/anos/o, 
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La Revista de ordenadores de mayor venta en toda Europa 
¡SE PUBLICA DESDE AHORA EN ESPAÑA, EN fORMA DE CASSETTEl 


SÍ¡ ya está confirmada la sensacional noticia. Muy 
pronto estará en los quioscos de toda España uno 
selección de los mejores juegos y utilidades 
publicados por la prestigiosa Revista británica 
«YOUR COMPUTER», editados en cassette de alta 
calidad y con instrucciones en castellano, 
El prestigio alcanzado por Your Computer, tanto 
en Inglaterra como en España y otros países, se 
debe, de una forma muy especial, a la gran 


Si no encuentras la cassette de 
"Your Computen> en tu quiosco 
o tienda de informática, solidtala 
a nuestras oficinas: 
SINT AX, S. A, 
.YOUR COMPUTER» 
Paseo de la Castellana, 268 
28046 Madrid 
Envía tus señas completas, 
teléfono y marco de ordenador 
e incluye talón bancario, o 
remite Giro Postal por el 
importe, 
No te cobraremos gastos por el 
envío, 
Si prefieres pagar contra 
reembolso, entonces incluye, 
junto a tu pedido, dos sellos 
de 50 ptas. cada uno para 
gastos de envío. 


CD 


calidad de los programas que publica, la mayor 
parte de ellos en Código Máquina, y con la 
utilización de rutinas y técnicas de programación 
muy depuradas. 
Ahora, a un precio inmejorable, podéis tener 
acceso a estos programas, evitandoos la difícil 
tarea de teclearlos en vuestro ordenador, 
¡y cada mes estará en la calle una nueva cinta! 


'fQ 
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ORDENADORES 


EL CORAZON DELA PRIMfRA RfVISTA EUROPfA D 
¡M,TR · 


695: 
· AS, 


T AMBIEN DISPÓNIBLE 
PARA 
COMMODORE 64 


me 'or selección de p
ogramas 
detgosJy uti/idades, p
b"

dOS 
en la revista de mayor dlfus 1 n 
de Europa en orden
dores, 
Ahora repro
uc!dos en 
cassette, en aut,entlca 
exclusiva mundial, 
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SPECTRUM 48, PLUS, 128 ¡ 
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El superagente Dan Dinamita 
penetra en la peligrosa y 
custodiada mansión del Dr. 
Blitzen, con la misión de 
abortar el proyecto del Rayo 
Devastador, de ello depende 
la seguridad del mundo libre. 


SOLAMENTE 
CPC 464 


E r
 

 
.r-, n el día 10-4-1921, los ser- 
vicios de espionaje de Estamos Uni- 
dos, descubrieron un plan de desa- 
rrollo de un arma revolucionaria, 
con un poder energético equivalen- 
te 021,100 kg de nitroglicerina, 
El Rayo Devastador, nombre da- 
do a la poderosa arma por su crea- 
dor, está en plena fase de desarro- 
llo y sólo existe en el papel, 
Su diseñador, el Dr. Blitzen una 
vez concluidos los estudios teóricos y 
terminados los 230 metros cuadra- 
dos de planos y las 1,100 páginas de 
intrucciones de montaje, ha vendido 
su siniestro artefacto al bloque del 
Este. 
En su inespugnable mansión de los 
Alpes el Dr. y su equipo de seguri- 
dad, esperan la llegada del convoy 
que ha de transportar la documen- 
tación hasta sus compradores. 
Transmitida la información a los 
servicios de inteligencia occidentales, 
éstos elaboran un plan para apode- 
rarse de los documentos que pueden 
cambiar el destino del mundo. 
En una audaz y arriesgada manio- 
bra, los servicios de inteligencia con- 
siguen comprar a la señora de la lim- 
pieza que presta sus servicios en la 
mansión, 
Esta ha escondido cuidadosamen- 
te 8 cartuchos de dinamita, en diver- 
sos puntos de la casa, pero su afición 
por la bebida le ha hecho olvidar la 
situación de los mismos, cosa que no 
estaba prevista en los planes. 
Una vez depositados los cartuchos 
entra en juego nuestro hombre; el su- 
peragente Dan dinamita. 
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Depositado en el tejado de la mis- 
teriosa mansión por dirigible, co- 
mienza su arriesgada misión, 
Pero la mansión no es una casa de 
campo normal y corriente, es una 
trampa mortal para cualquier extra- 
ño que quiera recorrerla, Pasadizos 
subterráneos, habitaciones letales, 
escaleras sin fin, pasillos subacuáti- 
cos, ascensores, trampas eléctricas y 
demás dispositivos extraños mantie- 
nen intacta la seguridad del malva- 
do Blitzen, 
. Dan debe poner en constante ries- 
go su vida para salvar al mundo li- 
bre. 
En primer lugar tiene que encon- 
trar los ocho cartuchos de dinamita 
escondidos por la Sra, de la limpie- 
za. 


localizados éstos, el siguiente pa- 
so es llegar hasta la caja fuerte que 
guarda los planos del Rayo Devas- 
tador, 
Encontrar el paredero de la caja 
y localizar los 8 cartuchos de dina- 
mita, requiere eludir una larga serie 
de trampas y peligros, que sólo Dan 
puede conseguir, cualquier otro 
agente moriría en el empeño, ' 
Después de todas estas peripecias 
volar la cerradura de la caja es una 
tarea de niños, con los planos en su 
poder, Dan puede decir que ha cu- 
bierto la mitad de su cometido, 
Solamente le queda salir con vida 
de la mansión y entregar los planos 
al servicio de inteligencia, 
Pero si penetrar en la mansión y 
descubrir el paradero de los pl<..nos 
era difícil, salir de ella cuesta mucho 
m.Js, el cansancio, hace mella hasta 
en el agente secreto más famoso del 
mundo. 
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Dan debe reponer fuerzas comien- 
do alimentos macrobióticos que es- 
tán en determinados puntos de la ca- 
sa: huevos, cócteles, frutas, queso, 
etc. ayudan a mantener la energía. 
Otros objetos son imprescindibles 
para entrar en determinadas habita- 
ciones y superar infernales corredo- 
res. 
Dynamite Dan es el primer juego 
comercial en España que incorpora 
las siguientes opciones de juego: 
Vidas infinitas. 
Dan que aniquila bichos y objetos 
que le atacan. 
Energía infinita. 
Dan submarinista. 
Opciones que se han añadido al 
juego normal, para facilitar el cum- 
plimiento de la misió.n, 
El juego en versión original era in- 
creíblemente difícil de resolver y en 
vista de esto se ha optado por aña- 
dir unas ayudas que permiten con- 
cluirlo con éxito. 
Las distintas opciones de juego, 
pueden elegirse solas o combinadas, 
de forma que cada usuario pueda 
graduar a su.gusto la dificultad de la 
misión. 
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Idea gue permite resolver el juego 
utilizando todas las opciones prime- 
ro, y luego una vez conocidos el em- 
plazamiento de los objetos y la situa- 
ción de los cartuchos de dinamita, ir 
poniendo el juego más difícil hasta 
conseguir completar la misión en la 
modalidad de juego normal. 
Original idea en un juego comer- 
cial, que evita la desagradable ex- 
periencia de gastar dinero en un pro- 
grama para entretenernos, y a las 
pocas horas tener que arrinconarlo 
porque nos resulta imposible pasar 
de un determinado punto, con el te- 
rrible pesar de haber tirado el dine- 
ro invertido. 
Esperamos que surjan más progra- 
mas adaptados a este concepto. 
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ROTACION 
DE CARACTERES 


Los soberbios gráficos de alta resolución 
del Amstrad son ideales para mostrar en 
pantalla gráficos y diagramas de todo 
tipo. 
Haciendo uso de estos poderosos 
comandos gráficos, los datos pueden ser 
representados de una forma mucho más 
intuitiva y digerible para las personas. 


I 


up<. ngamos ',ue neces'ta- 
mas cr,':lr un programo aue dib :1:: 
n la pa Italia un estadístl a en fa 
r la de ( lagram! de bar s, para 
nuestro legocio. 
Norm" Imente, l. ejes, -.scala y 
etiquetas de los ejes de este tipo de 
dibujos están pensados para ser ob- 
servados verticalmente, mientras que 
el modo de impresión normal de una 
cadena de caracteres está implemen- 
tada en sentido horizontal, de iz- 
quierda a derecha, 
Si queremos que nuestras barras y 
texto aparezcan verticales, una for- 
ma de lograrlo sería la que usa el 
programa número 1. 
No obstante, ésta no es una escri- 
tura vertical real; gire la cabeza 90 
grados a derecha e izquierda y tra- 
te de leer el texto, Se entenderá per- 
fectamente lo que quiero decir, 
Parece ser que hace falta una ru- 
tina que se capaz de girar los carac- 
teres de una cadena alfanumérica a 
derecha o izquierda 90 grados, e im- 
primirla en la pantalla en la posición 
del cursar de texto. 


De nuevo el lenguaie 
máquina y las RSX 


Naturalmente, hay que recurrir al 
lenguaje máquina para lograrlo, pe- 
ro vamos a rizar un poco el rizo y, 
para nuestra mayor comodidad, 
crearemos dos nuevos comandos Ba- 
sic que basta con lIamarlos y darles 
la cadena para que lo hagan, 
20 MIOOHOBBY AMSTIlAD 


Como nuestros lectores ya saben, 
esto está «chupado» haciendo uso 
de las facilidades que el sistema ope- 
rativo del Amstrad proporciona ba- 
jo el nombre de RSX, Extensiones Re- 
sidentes del Sistema, 
Uno de los nuevos comandos, «1 
PRINT.UP», rota todos los caracteres 
de una cadena alfanumérica que se 
le proporciona como parámetro 90 
grados en el sentido contrario a las 
agujas del reloj e imprime los carac- 
teres verticalmente hacia arriba. 
El otro, «1 PRINT.DOWN», hace lo 
mismo que su compañero, pero la 
impresión es de arriba a abajo y la 
rotación 90 grados en el sentido de 
las agujas del reloj. 
El programa número 2 es una cor- 
ta rutina en Basic que coloca el có- 
digo máquina a partir de &AOOO y 
activa los nuevos comandos, mien- 
tras que el programa 3 es el listado 
en lenguaje ensamblador de la ruti- 
na en máquina, 
Los afortunados poseedores de un 
ensamblador podrán colocarlo en la 
zona de memoria que más les aco- 
mode y variar los nombres de los 
nuevos comandos si los propuestos 
por nosotros no les gustan, 
Obsérvese que ambos deben ir 
precedidos, al invocarlos desde Ba- 
sic, del signo «1» para que el sistema 
sepa a qué atenerse: 
'.1 PRINT.OOWN 
I PRINT.UP 
y que el listado en ensambla dar, 
aunque obtenido mediante el GENS 
de Hisoft, puede introducirse sin pro- 
blemas usando el que publicamos en 
el número 8 de AMSTRAD Semanal. 
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Sintaxis 


La sintaxis de los nuevos comandos 
no puede ser más sencilla, basta con 
invocarlos y darles después la cade- 
na e imprimir, bien entrecomillada o 
bien como variable: 
frase$ = «Amstrad» 
1 PRINT,UP, frase$ 
1 PRINT,OOWN, «Amstrad» 
Aquellas pl::rsonas que tengan un 
CPC464, deben usar solamente el 
método siguiente: 
frase$ = «Amstrad» 
1 PRINT.UP, @ frase$ 
La rutina en máquina, la que real- 
mente hace el trabajo (el resto es la 
inicialización típica de un RSX), co- 
mienza en la dirección hexa &A031, 
inmediatamente debajo de la etique- 
ta «AQU 1» , Su funcionamiento es el 
siguiente: 


a) LO L, (IX+O) 
LO H, (IX+ 1) 
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coloca en el registro H L la dirección 
de memoria donde se encuentra el 
descriptor de cadena que el sistema 
operativo construye (recordad que 
IX apuntaba a esa zona, denomina- 
da bloque de parámetros). 


b) LD B, (HL) 


el primer byte del descriptor de ca- 
dena contiene su longitud, así que la 
cargamos en el registro B, 


c) INC HL 
LD E, (HL) 
INC HL 
LD D, (HL) 
EX DE, HL 


los dos bytes siguientes contienen la 
dirección verdadera de memoria 
donde los caracteres de la cadena se 
almacenan físicamente; la introduci- 
mos en el registro DE y luego en el 
HL, porque interesa que estén en él 
para el funcionamiento del resto de 
la rutina. 
Alcanzamos ahora el bucle princi- 
pal (etiqueta «OTRO») que girará los 
I caracteres y los imprimirá uno a uno 

 mediante la instrucción DJNZ (de ahí 
que la longitud de la cadena esté en 

. 


t-- --- 


.'n 
p'rOgrO Ill ACCIO 


A lo largo de este bucle hay que 
hacer unas cuantas cosas. 
Lo primero de todo, es hallar la di- 
rección donde está la matriz de pun- 
tos que compone el caracter que va- 
mos a girar; esto lo hacemos llaman- 
do a la rutina firmware MATRIZ 
(CALL MA TRIZ), que devuelve la di- 
rección en H L. 
A continuación activamos la ROM 
baja (CALL ROMSI), ponemos la di- 
rección de la matriz de puntos en DE 
y llamamos a ARRIBA o ABAJO que 
giran el caracter a derecha o izquier- 
da. 
Deshabilitamos la ROM (CALL 
ROMNO) y convertimos la zona de 
memoria de nuestro programa que 
comienza en CHR255 en una matriz 
de puntos con el mismo formato que 
las nativas del Amstrad llamado a 
SETMAT (CALL SETMAT), de SET 
MATRIZ. 
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lO REM PROGRAMA 1 
2() CLS 
'\0 a
-"AMSTRAO" . , 
40 LOCATE 10,10 P rogramACClon 
50 FOR 1=1 TO LEN(a
) 
60 PRINT MIO$(a$,I.I):CHR$(IO);CHR$ 
(8) : 
7e. NEXT 
A069 3E08 LO A,tlO8 
"000 OIRORG: EQU IIAOOO A06Ei C05ABB CALL PRINT 
AOOO ORG DIRORG A06E Cl POP BC 
"000 0109AO LD BC,COMTAB A06F El POP HL 
AOO:: 2124AO LO HL,ESP_ TR A070 2::: INC HL 
A006 C3D1BC JP RSXCOM A071 lOCA DJNZ OTRO 
A009 IIAO COMTAB: OEFW NOMTAB A073 C9 RET 
AOOB C328An JP P_OOWN A074 2197AO "RRIBA: LO HI . CHF\255 
AOOE C32CAO JP P UP A077 lA LO A, (DE) 
AOII 505:"494E NOMTAB: OEFM "PRINT.OOW" A078 0608 LO B,1I08 
AOIA CE OEFB IINII+#aO An7A 17 BUCl El: RLA 
A01B 505:?494F" OEFM "PRINT.U" A07B CB1E RR (HI) 
A022 00 DEFB "P"+1I80 A070 2:<: INC HL 
A023 00 OEFB 1I0e. A07E 10FA OJNZ BUCLE] 
AO::'4 ESF'_ TR: OEFS 4 A080 13 INC OE 
A028 3EOA P_OOWN: LO A,IIOA A081 00 OEC C 
A02A 1802 JR AQUI A082 20FO JR NZ,ARRIBA 
A(12C 
,EnB P_UP: LO A,tlOB A084 C9 RET 
A02E :::296AO ADUI: LO <UPOOWN) , A A085 219FAe> ABAJO: LD HL,d_CHAR 
AO:::1 006EOO LO L, (1 X +0) A088 lA LO A, (DE) 
A034 006601 LO H, <IX+1) A089 0608 LO B,IIOB 
A037 46 LO B, (HL! A08B 2B BUCLE2: DEC HL 
AOJ8 2:'. INC HL Ae.8C 17 RLA 
A039 5E LO E, (HL! AOBO CBI6 RL (HU 
AOJA 2o, INC HL A08F 10FA OJNZ BUCLE2 
A038 56 LO O, (HL! A091 13 INC OE 
AOJC EB EX OE,HL A092 00 DEC C 
A030 7E OTRO: LD A, (HL! A093 20FO JR NZ,ABAJO 
A03E E5 PUSH HL A095 C9 RET 
A03F C5 PUSH BC A096 00 UF'OOWN: DEFB O 
A040 COA5BB CALL MATRIZ A097 00 CHR255
 DEFB (1 
A043 C006B9 CALL ROMSI A09B 00 DEFB O 
A046 EB EX OE,HL A099 00 OEFB O 
A()47 OE08 LO C,1I08 A09A e,o OEFB O 
A049 3A96AO LO A, (UPOOWN) A09B 00 DEFB O 
A04C F5 PUSH AF A09C 00 OEFB O 
A040 FEOA CP tlOA A09D 00 DEFB O 
A04F CC74AO CALL Z,ARRIBA A09E 00 OEFB O 
A052 C485AO CALL NZ,ABAJO A09F 00 N_CHAR: OEFB O 
A055 C009B9 CALL ROMNO B906 ROMSI: EQU 118906 
A058 "EFF LD A,tlFF 8909 ROMNO: EQU IIB909 
A05A 2197AO LD HL,CHR255 BB5A PRINT: EQU IIBB5A 
A050 CDABBB CALL SETMAT BBA5 MATRIZ: EQU 118BA5 
A060 :,EFF LD A,tlFF BBA8 SETMAT: EQU tl8E!A8 
A062 CD5ABE! CALL PRINT BCOI RSXCOM: EQU IIBCDI 
A065 FI POP AF AOAO ENO 
A066 CD5ABE! CALL PRINT 


Byte en acumulador Byte (HL) 
1 2 
= 
ij 1 1 1 1 1 1 ij 2 ij 1 ij ij ij ij ij ij ij ij 
Carry 
Flag ij 1 2 3 4 5 6 7 
Caracter Ratada 


Bits 


ij 


7 


2 3 4 5 
Caracter Inicial 


6 


-- 


ij 1 1 1 1 1 1 ij 
ij a 1 1 1 1 ij ij 
ij a ij 1 1 ij a Q 
ij a o 1 1 o ij o 
o o o 1 1 a o o 
o ij o 1 1 a Q a 
a ij o 1 1 o Q a 
a a o 1 1 a o a 


CHR 255 
- 


o a a o Q ij o a 
ij o o o a a ij 1 
o a a ij o o 1 1 
1 1 1 1 1 1 1 1 
1 1 1 1 1 1 1 1 
ij o Q o o o 1 1 
a o Q ij a a Q 1 
ij a o a a o o ij 


DE-- 


Bits Q 


HL- 
2 3 4 5 6 7 Bits Q 2 3 4 5 6 7 
Acción del comando I PRINT, DOWN 
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Figura 7 



Por fin imprimimos el caracter y re- 
petimos el ciclo, 


Rutinas de giro 
Vamos ahora con las rutinas ARRI- 
BA Y ABAJO, 
Si se mira con detalle la rutina 
ARRIBA, se puede ver que consta de 
dos bucles. 
El primero recorre los 8 bytes que 
forman un caracter de uno en uno, 
cargando el A con el contenido del 
registro DE, que es donde la rutina 
MATRIZ, tras el EX DE, HL, deja la 
dirección requerida, 
El segundo bucle, más interno, ro- 
ta los caracteres bit a bit: se rota el 
acumulador hacia la izquierda, de 
forma que el bit 7 acaba en el Carry 
flag (RLA). 
Luego, este bit se incluye en el 


apropiado byte de CHR255 con la 
instrucción de rotación a la derecha 
RR (HL), 
El resultado de estas manipulacio- 
nes es que la trama de bytes y bits 
de CHR255 contiene al final una co- 
pia exacta del caracter original que 
estaba en el acumulador, pero gira- 
do 90 grados, 
Ya habréis podido observar que 
todo esto resulta extremadamente 
sencillo de manejar gracias al siste- 
ma RSX y a las facilidades previstas 
por el firmware del Amstrad. Los dos 
nuevos comandos ayudarán a que 
vuestros gráficos estén dotados de 
una presentación mucho más agra- 
dable y profesional, 
Sólo para divertirse ¿alguien po- 
dría adaptar la rutina para que el 
texto resultante apareciera tal y co- 
mo se vería en un espejo? 


LLAMADAS AL FIRMWARE 
ETIQUETA DIRECCION PROPOSITO 
ROMSI &B906 Activa la ROM baja donde se encuentra el firm- 
ware (direcciones &O-&3FFF). 
ROMNO &B909 Desactiva la ROM baja, 
PRINT &BB5A Imprime el caraeter contenido en el acumulador, 
MATRIZ &BBA5 Encuentra la dirección de la matriz que consti- 
tuye el caraeter dado como parámetro en el acu- 
mulador, Devuelve dicha dirección en el regis- 
tro H L. 
SETMA T &BBA8 Convierte una zona de memoria de 8 bytes al 
formato necesario para que represente un ca- 
raeter alfanumérico, Requiere dos parámetros: 
el código ASCII del caracter en el acumulador 
y la dirección de la zona de memoria en HL. 
RSXCOM &BCDl Le dice al firmware que existe una RSX, Necesi- 
ta dos parámetros: en BC, la dirección de la ta- 
bla de nombres de la RSX, y en HL la dirección 
de un espacio de trabajo (ESP _TR) de 4 bytes 
de longitud, 


. , 
p rOgrarnAcCIOn 


ETIQUETAS 
 


ABAJO AOB5 AQUI A02E ARRIBA A074 
BUCLEl A07A BUCLE2 AOBB CHR255 A097 
COMTAB A009 DIRORG AOOO ESF'_TR A024 
MATRI Z BBA5 NOMTAB A('II N_CHAR A09F 
OTRO A03D F'RINT BB5A P_DOWN A02B 
P_UP A02C ROMNO B909 ROMSI B906 

SXCOM BCDl SETMAT BBAB UPDOWN A096 


10 REM Side W
lter 
20 REM By R,A.Waddllove 
30 REM (cJAmstrad Semanal 
40 MEMORY t.9FFF 
50 a t,AOO(1 
60 FOR 1-1 TO 14 
70 sllm O:READ aS,bS 
BO FOR j
1 TO 21 STEP 2 
90 k VAL("'"+MIDS(aS,J.2»:F'O
E a.L 
100 sum-sum+k:a a+l 
110 NEXT 
120 IF sllm<>VAl("t."+bS) THEN PRINT 
"Error ln data....':STOP 
130 NEXT 
140 CALL t.AOOO 
150 PRINT "Side wrlter e
tA 11StO.. 


ibO PRINT II Olsponlif6 de 10$ comandas 
. :print.up' y 
 :prlnt.down'" 
1 70 DATA OI09A02124A(IC3D1BCllAO.490 
lBO DATA C328AOC32CA05052494E54,4A7 
190 DATA 2E444F57CE5052494E542E.3Al 
200 DATA 55D000000000003EOA1802, 187 
210 DATA 3E(JB3296AODD6EOODD6601.440 
220 DATA 46235E2356EB7EE5C5CDA5,5C5 
230 DATA BBCD06B9EBOE083A96AOF5,5AD 
240 DATA FEOACC74AOC485AOCD09B9, 66(1 
250 DATA 3EFF2197AOCDA8BB3EFFCD.6CF 
260 DATA 5ABBF1CD5ABB3EOBCD5ABB.610 
270 DATA CIE 1231C1CAC92197ACllA06, 4E.0 
280 DATA OB17CBIE2310FA130D20FO,365 
290 DATA C9219FA01A06082B17CB16,374 
300 DATA IOFA130D20FOC900000000,303 


Sig ue la línea del futuro 


. 
-" 
" 
< 


:.::,¡:: 


'1 
1, 


... , . 
...,...-._.....:.:.:
....
__....i
....."'" 


GARANTIA 
11$111
 


':: ORDENADOR AMSTRAD 464 F, Verde,. , ,. . ." 66,900 Ptas, 
:: ORDENADOR AMSTRAD 6,128 F, Verde ..,..,. 109,500 Ptas. 


::.:':.:.:.:,:.:.:.:.::::.:.:.:.:.:.:.:.:.:.::::.:.:.:.;.:.:.:.:.:.:.:.:.::.:.:.:.:.:.:.:.:.;=::.;.:.:.:.:.:.:.:.:.:.::::.:.:.:.:.:.:.:.:.::::.:.:.:.:.:.: 


DISTRIBUIDOR INDESCOrv1P PARA ORENSE: 


ESPANA 



 
At4+taleJteS 1néKde
 
CAPITAN CORTES, 17.TELEF.- 228607,ORENSE 
Servimos a tiendas y almacenes 
Presenta este anuncio yobtendras u n OBSEQUIO en tu compra 


"Al comprar 
tu Arv1STRAD 
te regalam os 
a programas 
origi nales" 



. 


0801 


. 


eN 


Las pulgas mutantes atacan de 
nuevo l como cada primaveral 
año tras año. 
No hay problema. iEnviad a 
buscar a Robot Ron! 
Ron es un robot dirigido por 
control remoto especializado 
en destruir pulgas mutantes y 
armado de un super láser l por 
ejemplo. Pulga que pilla l 
pulga que mata. 


.... 


. -:r 


omo era de esperar, 
nuestro robot no es inmun. al ataque 
de las ominosas pulgas, e cuanto le 
tocan a él lo destru en. 
Bueno, no os preocupéis. Podemos 
reconstruido, para eso está la tecno- 
logía, pero sólo tres veces. Algún lí. 
mite tiene que haber, ¿no? 
El programa consta de nueve pan- 
tallas distintas donde puedes probar 
tu habilidad, velocísimos reflejos, etc. 
A medida que vamos avanzando 
por las pantallas, hay menos pulgas, 
pero se mueven con mayor agilidad 
y mala idea. 
Hemos usado una rutina en máqui- 
na para pintar las pulgas, el robot y 
el disparo, la cual cumple su función 
u,nas 10 veces más rápido que el ba- 
SIC, 
Ojo con las Datas, son muchas y 
es fácil equivocarse. 


. 


-.--0' 


5- 


- 


- 


. 

 


.... 



Jt'"'__ 


I 


,] 


". 
 . 


. 
. 


. 
. 


x,y 
a(20,25) 
r(20,1) 
name$(5) 
hiseore(5) 
p,q 
se 
sereen 
m 
n 


Coordenadas de Ron, 
Mapa de pantalla, 
Coordenadas de las pulgas. 
Nombres en la tabla de puntos, 
Máximo puntuación 
Coordenadas del disparo. 
Puntos, 
Número de pantalla, 
Desplazamiento a la izquierda de las pulgas, 
Pulga que será movida. 
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10 REM Robot Ron v The EVII Weevils 
20 REM By R.A.Waddllove 
30 REM(c) Amstrad Semanal 
40 MEMORY 
,9FFF 
50 GOSUB 420:REM iniclalizacion 
60 GOSUB 1530:REM Instrucciones 
70 WHILE NOT fed.up 
80 GOSUB 1230:REM scores 
90 WHILE lives 
100 GOSUR 670:REM asigna variables 
110 WHILE alx.yl-O AND m 
170 GOSUR 200:GOSUB 260:IF p THEN G 
nSUB 390 ELSE GOSUB 360 
130 WEND 
140 IF m THEN GOSUB 930 ELSE sereen 
=screpn+(ser
en)ll:GOSUB 910 
150 WFND 
160 IF se)hiscore(5) THEN GOSUB 135 
O 
170 WEND 
180 END 
190 REM --------muevli hombre ------ 


200 i x+(INKEYCg»-ll-CINKEYCh»-I) 
:j=y+CINKEY(e»-I)-CIN
EY(f»-I):IF 
a(j,j) >1 THEN RETURN 
210 IF a(I,J»l THEN RETURN 
270 CALL 
AOOO.x,y,i,j,2:IF p ° AND 
Ci(>x OR J(>Y) THEN mX-I-x:my-j-y: 
SOUND 132.100,1,4 
2
O x=i:Y-J 
240 RETURN 
250 REM ------- mueve robots ------ 


260 SOUND 130,m*20+500,10.4:i-rCn,0 
):j=rCn,I):IF 1-0 THEN 300 
270 IF a(I,j)(>1 THEN LOCA TE I,J,PR 
INT " ":r(n.O)-O:aCi,J)=O:m=m-l:GOT 
O 300 
280 I =i - (1 <:< H (1 >,<) : j- J + (j >y) - (j( y) 
290 IF a(I,J)=O THEN CALL &AOOO,r(n 
, O) . r (n, 1 I , j , j , O: " C r (n, O) , r (n, 1 ) ) -O 
:a(I,J)-l:r(n,O)=¡:r(n,lJ J 
300 1=r(n+l.0):J=r(n+l, 1): IF i-O TH 
EN 340 
310 IF a(i.J)(>l THEN LOCA TE i,J:PR 
INT" "'rCn+l,O)=O:a(i,JI O:m-m-l:G 
OTO 340 
320 i j-(j
x)+(i>x):j-j+Cj>y)-Cj(y) 
330 IF aCI.J)-O THEN CALL LAOOO,r(n 
+ 1. O) . r (n+ 1 , 1) . i , J, 1: a (r (n+ 1, O) , r (n 
+ 1, 1) ) =0: a C j ,J) = 1: r Cn+ 1. O) =1: r Cn+l, 
] ) =j 
340 n-(n+2)MOD sereen*2:IF r(n,OI O 
R rCn+l.0) OR m-O THEN RETURN ELSE 
340 
350 REM ---------- fuego ---------- 
36() 1 F 1 Nf<EY C d) (O THEN RETURN 
:;,7t> c-:<+m:<: o-v+mv: lF a..1
3. LHEN 
p=(>: RETUI;;N ELSE 1 F a C p, q 1= 1 rHF
,1 CA 
LL 'AOOO,p,q,p,q.4:p=0:aCp,q) 4:RFT 
URN 
380 CALL &AOOO,p.q,p.q,3:rl(p,q)=?:S 
OUND 129.10.30(',15,1,1,1: RE'TIJRN 
390 l=p+mx:j-q+my:IF aCI.J)-1 THEN 
aCp,q)=0:a(I.J)-4:C
L 
AOOO,p,q, i, 
i,4:p=0:SOUND 129,1500,100,15,2.0,1 
5:sc=se+l:LOCATE 7,I:PRINT MID$CSTR 
$ (se) ,:;'1: RETURN 
400 a(p,q)-O:IF a(I,J) 3 THEN lOCAT 
E p,q:F'RINT " ":p=CI:snllND 12'1,0,0,0 
ELSE CALL 
Aoon.p,q.I,J.3:a(l,j)=7 
:P=I:q=J 
410 RETURN 
420 REM ------- Inieiallzar ------- 


430 DEFINT a-z 
440 DIM a.(:'(J.


.r'(
O
1).no?d..p$(5).h 
Is,ore(5) 
450 FOR 1=1 TO 7,:nr:\mf"$(, )-IIF
 gn'fH'1 
A":hlsco,e(I)=60-j*¡0:NFXT 
460 F"NT 1. :'(I(¡, :-', 1 : F
JV l. 15 
 - 
 , :-
, 
470 FNV 
,I
.-I,10 
480 FOR i O Tn 9R 
490 READ a$: POIT 
,AOUCl+I, V(.II. ("',"+a$ 
) 
500 NE XT 



510 DATA 00.7F,nO,n7,p/.8 7 ,R7.87,': 
.47, AO, 2.'>, ro, rm, 7r ,04, 
D, 8/,87, br- , I 
1. SO. 0:"1, DO, 4h. (17. (J
, 19, lc"l
 ¡=r
 F
. ':'6. 
C(I. 00, 7F , (IR. 
D, 81 , 87, t-F, 11, 'In, "(',0[\ 
. 46. CIA. (15. 1 q, 1 (J. Fr.. tI. rl', (17 ,(I{,. 0:1, -.: 
6,(IO.2-.:,
6.nn.-3,
6.
0.2
.?6,O
 
5
O DA1"A \Q. ](J.r?E=
 .1
 .1"c;.,'11.
16
':)8 
. 1 A, 77, J 3. 7
" 1 A, 7 l. 1';. :::." lA, 77. ¡
;,:: 
,"" IA,77.1
.78,(Jl,Fn,"J7" "'9,47, 10,f'? 
('9 
530 FnR i -o iQ ]' ,9, r<r (\[) j: r'nn' 
,"\ 1 (, 
O+i.J:NC
T 
540 REM Robot 1 
550 DATA 20,6(',60.0.10

J
1,]9
,4(¡. 
105.16q,233,4n,41,
,
.4(1.
(,.rl,
(
.0, 
(1,40.40,n,n, IbO, It-O,O,80, 160,:'40,0 
560 RFM Robot ;:- 
570 DATA 80,::40.::40,160,1bn.I,
.8n. 
160.169.86.80,161.
.'.82,8n,7,1,160 
.O,240,24().O,
(I.('.O.40.4("O,O,2(J 
580 RFM Hombre 
590 DATA n,64.178.n.0,I:'S,64.0.0,64 
,128.0,4,12.17.8.8,76.1110,4. ":',2,12,1 
2.16.0,8.4,n,4.8.4,8 
600 REM La<;er 
610 DATA o,o,o.n,n.8.4,0.0.0.0,0.n. 
84.168.0.0.84.168,o.n,n.O,n,O.8,4.'" 
.0.0.0,0 
620 REM Explosl0n 
630 DATA 8,84.1b8,4.4. 1'6,68,8, 16A, 
8,4,84.84,216.2:'8.168,84,216,228, lb 
8,168.8,4.84.4,136.68.8.8.84.168,4 
640 FOR i 1 TO 2n:a(\.
'=3:a(i,24)
 
3:NEXT 
650 FOR 1-:: TO 24:a(I,1 )=3:a(2n,J)- 
3:NEXT 
660 RETURN 
670 REM ------a
lgnR variablu- - 
680 CLS 1I1:F'EN 1 
690 FOR 1 2 TO 19:FOR J=3 TO 23:a(i 
.J)=O:NEXT:NEXT 
700 J=I+INT(RNO*5):DEG 
710 FOR lOTO 350 STEF' 10 
720 x 10+6*COS(I*J):y=12+6*SIN(I):L 
OCATE x.y:PRINT CHR$(2n7':a(x,y)=5 
730 NEXT 
740 x=10:y=12:p O:a(x.y)-O 
750 m=screen*2 
760 FOR 1-0 TO m-I 
770 IF RNO)0.5 THEN r(I,0)=2+INTCRN 
D*5) EL SE r(i.0)=I
+INT(RND*5) 
780 IF RND)0.5 THEN r(i,I)=3+INT(RN 
D*5) ELSE r(I,I)-15+INT(RND*5) 
790 IF a(rCl.0),r(I.I» THEN 770 EL 
SE a(r(i.O),r<1,l»-1 
800 NEXT 
810 REM ----- crea pantalla 


820 MOVE 0,18: DRAW el, 380,1: DRAW 638 
,380:DRAW 6:8, 18:DRAW 0,18 
830 F'EN 15:LOCATE 1,1:F'RINT "Score' 
"MID$CSTR$(sc),2);:F'EN 14:F'RINT TAR 
CI2)"H¡gh:"MID$(STR$(h¡score(I»,2) 
840 F'EN 13:LOCATE 1,25:F'RINT "Llves 
:"MID$(STR$(lives),21,:F'EN 12,F'RINT 
TABCI2) "Screen: "MID$(STR$(10-scree 
n) ,2) 
850 CALL &AOOO,x,y,x.y,2 
860 F'EN 4 
870 FOR i o TO screen*2-1 
880 LOCA TE r(i,O),r(i,I):F'RINT CHR$ 
(231 ) 
890 NE XT 
900 F'EN 15 
910 FOR i o TO 2000:NEXT 
920 RETURN 
930 REM ---------- muerte --------- 


940 SOUND 129,1500,100,15.2.0.15 
950 lives-lives-I 
960 CALL &AOOO.x,y.x,y,4 
970 FOR 1=0 TO 5000:NEXT 
980 IF l1ves THEN RETURN 
990 TAG 
1000 F'LOT -10,-10,2:MOVE 160,200:F'R 
INT "Game Over"; 
1010 TAGOFF:F'RINT CHR$(23);CHR$(I)¡ 
:TAG 
1020 F'LOT -10,-10,6:MOVE 164,202:F'R 
INT IIGame Ovey-II; 
1030 TAGOFF:PRINT CHR$(23),CHR$(0): 
1040 FOR i=O TO 5000:NEXT 
1050 RETURN 
1060 REM -------- sonido -------- 
1070 WHILE INKEY(47)
0 ANO INKEYC76 
)(0 
1080 RESTORE 1190:READ pltch:SOlJNO 
129,213,200,4:SDUND 130 4 253.2000.4: 
SOUND 1,127.2000,4 ' , , 
1090 WHILE pitch>O AND INKEY(47)(O 
AND IN
:EY (76) (O 
1100 SOUND 4,pitch,10.6:S0UND 4.159 
,10,6:READ pltch ' 
1110 WEND 
1120 READ pitch:SOUND 129,319,200,5 
:SOUND 1,213,200,4:S0UND 1,159,200, 
4 
1130 WHILE pltch)O AND INKEY(47)(0 
AND INKEY(76)(0 
1140 SOUND 4,Pltch,12,6:READ pitch 
1150 WEND 
1160 WEND 
1170 IF INKEY(47»-1 THEN d 47:e=69 
:f=71:g=39:h-31 EL SE d=76:e-72:f-73 
:g=74:h=75 


- 


· ríe Oro 


1180 RETURN 
1190 DATA 142.127.119. 142,127.119, 
127. 119, 106, 127. 11 9, 1 06 , 11 9, 106, 
95. 119,106.95, 106,95,84. 106.95,8 
4.0 
1200 DATA 80.84,95, 84,95,106. 95,1 
06. 119, 106, 1 19, 127 
1210 DATA 80,84.95, 84,95.106, 95,1 
06,119, 106.119,127 
1720 DATA 119,127.142,159,169,190,2 
13,239,253,284.319,253,284,319,239, 
253,284,213,239,253.190,213,239,169 
,190.213,190,179,169.159,142,159,0 
1230 REM --------- scores --------- 
1240 MODE I:BOROER 1 
1250 DRAW 0.:::98.1:DRAW 638.398:DRAW 
638,0:ORAW 0,0 
1260 F'AF'ER 2:F'EN 3:LOCATE 1I,2:PRIN 
T" H¡ gh Scores ": PAPER O 
1270 FOR 1=1 TO 5 
1280 LOCATE 7.5+1*2:PEN 3:F'RINT 1;: 
PEN 1: PR 1 NT " ": n ame$ ( 1 ) :" ":: F'EN 2 
:WHILE POSCII0)(29:F'RINT "."¡:WEND:F' 
EN 3:F'RINT hiscore(l) 
1290 NEXT 
1300 PI\F'ER 1:F'EN O:LOCATE 5,24:F'RIN 
T " F'ulsa SF'ACE o FIRE ":PAF'ER O 
1310 WHIlE INt-:EY$<>"":WEND:GOSUB 10 
60 


MICROHOBBY AMSTRAD SEMANAL 
LE OFRECE AHORA SUS PROGRAMAS 
YA GRABADOS, PARA QUE VD. 
NO TENGA QUE TECLEARLOS 


Todos los program.adores y aficionados a la microinformática sabemos lo tedioso y 
propenso a errores que resulta el teclear un listado de un programa. Para facilitar tu 
labor al máximo y que no tengas que estar horas sobre el teclado de tu ordenador 
tratando de descifrar incomprensible mensajes de error, AMSTRAD SEMANAL te ofrece 
cada mes los programas publicados de los cuatro números correspondientes en una cinta 
de cassette, sólo por 675 ptas. (sin más gastos por envío). 
Envíanos con la menor demora posible, el cupón correspondiente. 
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1320 saUNO 1::?9.0:saUNO 130.0:saUNO 
132
n 
1330 80ROER O:MOOE O:WINOOW #1,2,19 
.3.23:sc-O:screen 9:11ves=3 
1340 RETURN 
13S0 REM ------- hlgh score ------- 
1360 MOOE 1 
J370 ORAW O,398.I:ORAW 638.398:0RAW 
638,O:ORAW 0.0 
1380 F'EN 1:F'AF'ER O:LOCATE 7.S:F'RINT 
tlNueva puntu8clon ma>: 1 ma u 
1390 LOCATE 10.10:PEN 3:PRINT "Oime 
tu nombre tl 
14(10 LOCATE 14.:CO:PAPER 2:PEN 3:PRI 
NT " .,'.,...,..., 
1410 I ClCATE 16.:?0:k$-"":name$CS)-"" 
t4?n WHILE INkEY$
>"":WEN['I 
1430 WHIlF k$ 'CHR$CI3) 
1440 IF k'l; "CHR$ (
1) ANO k,$<"z" AND 
LENCna
p$(S» JO THEN n
me$CS)=name 
$(
)+I"':PRINT k$; 
1450 I
 k$=CHR$(127) ANO LEN(name$( 
5» THFN name$(S)=LErT$(name$C5),Lt 
NCn
me$(S»-I):F'RINT CHR$(8),CHR$(1 
6) : 
j 4,<,n I,!L= 1 N>,,EY$ 
1470 WENO 
1480 hlscore(5)=sc 
1490 FOR i-5 TO 2 STEP -1 
1500 IF hiscoreCi»hiscoreCi-l) THE 
N k$=name$CI):name$(I)=name$CI-l):n 
ame$(i-l)=k$:sc=hlscoreCI):hiscore( 
i) hiscoreCi-l):hlscore(I-I)-sc 
1510 NEXT 
1520 RETURN 
1530 REM ----- instrucciones ------ 
1540 MOOE I:CALL LBB4E:CALL 
BC02 
1550 IN
 2.2:INK n,II:INK 3,11:80RO 
ER 11 
1560 WINOOW #1.11.31.1,3:F'AF'ER #1,3 
:CLS #1 
1570 WINOOW #I,10,30,2,4:F'AF'ER #1.1 
:CLS #1 
1580 PEN 3:LOCATE 1.2S:PRINT "Robot 
Ron":PLOT -10,-10.2 
1590 FOR x O TO IS8 STEF' 2:FOR y=2 
TO 14 STEP 2 
16('0 IF TESTC:"y) THEN PLOT :,+230,y 
+y+344:PLOT x+230,y+y+346 
1610 NEXT:NtXT:F'EN #1.2 


=- 


1620 WINOOW #1.2.40,5.24:F'APER #1,3 
:CLS #1:INf< 3.6 
1630 WINOOW #1,1.39,6,25:F'AF'ER #1,1 
:CLS #1 
1640 F'RINT #1 
1650 F'RINT #1. "Invaslon de plllg
s 9 
19antes!.1I 
1660 PRINT #1 
1670 F'RINT #1," Est
s crlatur
s deb 
en ser e:-: termi ni\das" 
1680 F'RINT #1." a cualquier precio. 
": F'RINT #1 
1690 PRINT 
I." Enviad a kobot Ron 
par C\ que pLleoa ll 
1700 F'RINT #1," destrulrlas con su 
super 1 aser. 11 
1710 F'RINT #1 
1720 F'RINT #1." Ron puede control "r 
se usando 1 as ll 
1730 F'RINT 
1." siguientes teLlas,. 


174n F'RINT #1 
1750 PR 1 NT # 1. " A=ar Z-ab"J 
<-IZq >=¡je>r" 
1760 F'RINT #1 
1770 F'RINT #I,SF'C(11) "SF'ACE dlsp"ra 


1780 F'RINT 111 
1790 PRINT #I,SF-'CCl1)"O use Joysllc 
fe" 
1800 f'EN #1.l:PAPER 
1.2:LO[ATE #1, 
3. 19:F'RINT 111," F'ulsa SF'ACE o FI
 
par a comenz ar ": F'AF'ER # 1, O 
1810 WHILE INf
EY$<;-"": v'ENO 
1820 GOSUf< 1060 
1830 RFSTORE 1840:FOR 1=0 TO 15:RlA 
O j: INK 1 ,J:NFXT: INI: 7.26,13 
1840 DATA 0.18,6.:C4,2.8,
n,:6,15,
. 
7.9.25.16
22.:'3 
18S0 RETLJRN 


AOUO 007E'-"" l n !I, (J XI",) 
A003 87 AOIJ A.A 
AOO4 87 AOO A.A 
A(I(JS 87 AOD A.A 
AOO6 87 AOO A.A 
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AC'07 8 7 AOD A,A 
AOO8 ,,:C47AO LO CLA047> ,A 
AOOB 7(-'C'.. ID H,#CO 
AOoO 007E04 ID A,<1X+4) 
A01C1 
D DFC A 
AOll 87 AOO A,A 
A012 87 (\00 (\. (4 
A01
 6F In I,A 
A014 11S000 ID DE- 
 #O(I
I(J 
ACi17 D[\4602 LO B. (1 ':1:+2) 
A01A O
J 11"(' f< 
AClIE< 19 t.AnlR ADO HL,m. 
A01C JOFO O,lNZ LA<.IIl< 
AOIE I="
 F'IISH HL 
AnlF 2(,cn In H.IICO 
AO?l DO/fono 10 A, (I X+'3) 
A024 
n OFC A 
AC'25 87 AOO A.A 
A(126 87 AOO A,(4 
AO:7 6F 10 l. A 
A028 1'5000 LO or 
 tl005( I 
A028 004606 LO 8. (1 X .6) 
A02F O
, orc I 
AO:F 19 l A(\
F ADD Hl.Dt 
A03C1 1 n
 O [),lN7 l (4(¡2F 
A()
,;o 11Foo7 LO ['IF,1I07FO 
AO:':5 ('(-,('8 ID r, .IIOR 
AO"'7 :'<'>(1(' LA037 LO (HLI . #00 
A039 - ' INL HL 
AO
A :.600 LD (HL ) ,#(IU 
An::c .J_ . INC 1-11 
A030 :,6(1(1 10 HL),nno 
AOc,F :?:
 IrJC Hl 
A040 """:6<1(1 LO (HLI .1I(,n 
A04'" 19 Aon Hl , nf' 
A(.4::: 10F2 O,INl l AII:'/ 
A045 El F'OF HI 
A046 110nAl LO OE.IIA10o 
A('49 0608 LO 8.#n8 
A048 lA LAu48 LO A. (DE) 
A04C 77 ID (HI ).A 
A040 1"" INC or 
A04é 7':- INC Ht. 
A04F lA LO A. (OE) 
A("15C1 77 :0 :HLI ,A 
AOSl 1::: INC or 
A052 ::'":!, INr: HI 
AOS3 lA LO A. (DE) 
ACl54 77 LO (HLI .1'1 
A055 1-, IN!': or 
(\056 , ' INr HI 
AOS7 lA LO A. C!JE) 
A058 77 10 CHLI. A 
AC159 1', ¡NC or 
A(I
,,,, /
I 11. A.I< 
AO
,B (}IFOO7 ID 8c,#n7FO 
A05E 09 (I
O HL, E,e 
ACl5F 47 LO B.A 
A060 10E"9 0,lN7 I A048 
A062 C9 R!"T 
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¡¡POR PRIMERA VEZ EN EL MUNDO UN PROGRAMA 
DE JUEGOS QUE PUEDES HACER VARIAR A TU MEDIDA CUANTAS VECES QUIERAS!!. 
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ALIENS 
j TERRIZANDO 


La semana pasada vimos tómo está organizada la memoria 
de pantalla en Modo O ton la ayuda de algunos programas 
sentíllitos... En esta otasión intentaremos dibujar en la 
pantalla un tor. e multitolor por medio de varias rutinas 
tO las en tódigo máquina. 


" 


A"
I ' 
ntes ae nada h gamos un 
pequeño resumen de lo q le conoce- 
mos. 
La pantalla está organi 'ada en fi- 
las de pixels y un carae er sencillo 
ocupa 32 bytes de memoria, ocho fi- 
las de cuatro bytes. El modelo bina- 
rio de cada byte en la memoria de 
pantalla contiene información de dos 
pixels adyacentes horizontalmente, 


Distribución de la 
memoria 


Las filas de pixels están asociadas 
en grupos de ocho descendiendo por 
la pantalla. Hay 25 de estos grupos 
en ella -son las líneas que nosotros 
utilizaremos para situar el cursor del 
texto con LOCA TE y para escribir 
con PRINT-, La dirección del co- 
mienzo de cada fila de pixels de uno 
de estos grupos está situada &800 
bytes después de la correspondien- 
te al comienzo de la fila anterior y 
cada grupo comienza &50 bytes des- 
pués que el que tiene encima. La fi- 
gura 1 nos muestra el Mapa de me- 
moria del ángulo superior izquierdo 
de la pantalla, 
Para dibujar un caracter de tama- 
ño normal todo lo que se necesita es 
elaborar los datos requeridos y 01- 
macenarlos en ocho filas de 4 bytes 
en algún lugar de la RAM de panta- 
lla, Para que nos sea más fácit pri- 
mero imprimiremos un caracter sen- 
cillo en una de estas 25 líneas en las 
que está dividida la pantalla. 


Decodificación 
de un caracter 


Pl!lra obtener los datos del carac- 
ter ejecutamos el programa 1 que 
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además los coloca a partir de la di- 
rección &9002, Esta información se- 
rá la que utilicen las rutinas en códi- 
go máquina contenidas en este ar- 
tículo, 
El programa 2 es un listado en en- 
samblador de la rutina usada para 
dibujar el alien. Podemos hacer dos 
cosas para meter este programa en 
el Amstrad: utilizar un ensamblador 
para colocar los mnemónicos de las 
instrucciones o introducir los códigos 
hexadecimales, de uno en uno, usan- 
do el programa 3. 
Para ver en acción la rutina de es- 
critura del programa 2 tecleemos: 
MODE O: ?:?:? 
CALL &8000 
El alien aparecerá en el ángulo su- 
perior izquierdo de la pantalla co- 
rrespondiente a la dirección &COOO. 


Funcionamiento del 
programa 2 


Primero se cargan el par de regis- 
tros BC con el número de columnas 
y filas que estén almacenadas a par- 
tir de la dirección &9000, DE con la 
dirección de los datos, &9002 y HL 
con la dirección del sitio de la pan- 
talla donde queremos dibujar, 
&COOO. El registro B es el contador 
de bucle interno, el número de co- 
lumnas y el C es el del bucle exter- 
no, el número de filas. 
A continuación salvamos los valo- 
res de los contadores y de la direc- 
ción de la fila, después el bucle inter- 
no la recorre recogiendo el dato con- 
tenido en la dirección a la que apun- 
ta DE y lo almacena en la dirección 
señalada por H L. 
Incrementamos HL y DE para ob- 
tener el siguiente dato y la nueva di- 
rección de la pantalla. 


e 
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'..... 
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u.: 
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Al final de la primera fila repone- 
mos el valor de la dirección del co- 
mienzo y sumamos &800 a HL para 
obtener la dirección de la siguiente. 
Recuperamos.los valores de los con- 
tadores de bucle y decrementamos 
el número de filas, C. 
Si estudia la rutina verá que la an- 
chura del caracter no tiene por qué 
ser constante. No es imprescindible 
que tenga cuatro bytes de ancho -la 
que tiene, precisamente, nuestro 
alien. 
El registro B se carga con la anchu- 
ra al comienzo del programa y se de- 
cremento cada vez que se hace el 
bucle interno hasta que llega a ser 
cero. HL y DE se incremento n para 
contener las direcciones correctas, 
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¿Qué pasa con la altura? El alien 
tiene ocho pixels de alto y se comien- 
za a dibujar en &CO. El bucle exter- 
no suma &800 a la dirección conte- 
nida en H L cada vez, para obtener 
la del comienzo de la siguiente fila así 
que la dirección de la última es 
&F800. Supongamos que el caracter 
no esté exactamente en una línea de 
texto, Podríamos dibujarlo en el 
quinto pixel hacia abajo y así queda- 
rá en la mitad de una línea yola mi- 
tad de la siguiente. 
Aquí encontraremos problemas 
debido a que el caracter está repar- 
tido entre dos grupos de 8 filas, 
Cuando bajemos a la fila inferior del 
grupo, sumando &800 a su dirección 
no obtendremos la de la fila superior 
del siguiente grupo de ocho, 


Precauciones 
indispensables 


En la figura 1 vemos que la direc- 
ción de la primera fila del próximo 
grupo es &C050, pero &F800+&800 
nos da cero. Como una pareja de re- 
gistros no puede contener números 
mayores que &FFFF, si superamos 
este valor se produce un desborda- 
miento, se activa el Carry flag y el 
par de registros comienza otra vez 
desde cero. 
Lo que necesitamos hacer es con- 
trolar si se ha producido un desbor- 
damiento y si hay que introducir des- 
pués un factor de corrección 
-&C050-. Si no se ha producido, 
todo irá correctamente, 


El programa 4 es la misma rutina 
que antes, pero la hemos añadido 
que compruebe si se produce des- 
bordamiento. Para ensayarlo escri- 
biremos nuestro alien en el quinto pi- 
xel hacia abajo, en la dirección 
&EOOO, 
Las cuatro primeras líneas siguen 
el tratamiento que hemos explicado 
en el programa anterior y comienzan 
en las direcciones &EOOO, &E800 
&FOOO y &F800. Cuando sumemos 
&800 a HL para calcular la dirección 
de comienzo de la quinta fila se pro- 
ducirá un desbordamiento. Esto ac- 
tivará el Carry flag así que se suma 
&C050 para corregir el resultado. 
Observe que realizamos el control en 
cada fila y no solamente en la quin- 
ta. 
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Teclee de nuevo: 
MODE o: ?:?:? 
CALL &8000 
y veremos la mitad de nuestro alien 
dibujada en la primera línea y la otra 
mitad en la segunda. 
Esta corta rutina imprimirá carac- 
teres multicolores de cualquier tama- 
ño y en el lugar de la pantalla que 
queramos, No importa si el alien es- 
tá colocado exaetamente en una de 
las 25 líneas de texto o está reparti- 
do entre dos o más, el código máqui- 
na lo controla y corrige cuando es 
necesario, !Inténtelo y lo verá¡ Car- 
gue HL con cualquier valor a partir 
de &COOO, ensamble la rutina de 
nuevo y llame a &8000. 


Las ventaias del 
código maquina 


Es difícil hacerse una idea de si la 
velocidad de la rutina en código má- 
quina es muy superior a la del Basic 
cuando se imprime un solo caraeter, 
El programa 5 llena totalmente la 
pantalla de aliens, y si consideramos 
que cada alien está formado por va- 
rios colores, su rapidez nos deja mu- 
dos de asombro. 
El par de registros HL se usa para 
almacenar la dirección y el BC es el 
contador del bucle. Sus valores se 
guardan antes de dibujar el alien y 
se restauran después, La rutina de 
escritura propiamente dicha está se- 
parada del resto, la hemos puesto el 
LABEL (o etiqueta) PRINT por razo- 
nes evidentes y se la llama como a 
una subrutina, El par de registros H L 
se usa para pasar la dirección don- 
de vamos a escibir el caraeter. 
Creemos que todo lo anterior es 
suficiente para asimilarlo por esta se- 
mana, Pronto veremos cómo se con- 
sigue que las cosas se pongan en mo- 
vimiento, 


&(000 &(001 &(002 &(003 &(004 .., 
&(800 &(801 &(802 &(803 &(804 .., 
&0000 &0001 &0002 &0003 &0004 .., 
&0800 &0801 &0802 &0803 &0804 ,.. 
&EOOO &EOOl &E002 &E003 &E004 .., 
&E800 &E801 &E802 &E803 &E804 .., 
&FOOO &FOOl &F002 &F003 &F004 ... 
&F800 &F801 &F802 &F803 &F804 .., 
&(050 &(051 &C052 &C053 &(054 .., 
&C850 &C851 &(852 &C853 &C854 ,.. 
,.. .., .., .., ,., ... 


Figure! 1: Mapa de memoria de la esquina su- 
perior izquierda de la pan/olla en Mode IJ 
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PROGRAMA I PROGRAMA V 
10 REM PROGRAMA 1 BOOO ORG "8(1(:(1 
20 pm"E t<9000, 8: pm:E 1,9001,4 PROGRA
IA V 
30 FOR i-O TO 31 80(1(1 2100C(I L D HI . "C(=(J(I 
40 READ j : F'OVE 1,9002+; , J 8003 01F401 LIC [iC., ;-j(JCI 
50 NEXT 8006 8JGIIF: 
6(1 REM ALlEN 8006 ES PUSH HL 
70 REM Fll as=8/Col Llmnas=4 8007 C5 
'Ll5H BC 
80 DATA 4,12.12,8,72.148.104,132.72 8008 CDI780 CAL L PR rt-IT 
90 DATA 156.108. 132.28,60
60,44,28 80N< Cl POF' hC 
100 DATA 32.16,44.4,48,48.8.8.0,0.4 800C El r'op HL 
110 DATA 4,0.0,8 800D 23 JNC HL 
800E 23 INC HL 
800F 23 INr i-ILo. 
8010 'n INC HI 
PROGRAMA 11 8(' 11 OH nrc BC 
8012 7B LO A,B 
8000 118N10 8013 BI OR ( 
org 
F'ROGRAMA tI 8014 20FO Jr, 
J Z , SI GLI[ 
8000 ED4B009(1 LD BC. (1190('(1) 8016 C9 R¡..r 
8004 110290 LD DE, 1>9002 8017 F'f;-¡NT: 
8007 2100CO LD HL, IICO(l(, 8017 E04BO(,9:, LI) BC. <tl7(J(J(i) 
800A BLlCLEl : 801B 110290 LO DE. Wi'(,(I
 
800A C5 PLlSH BC 801E HUrI f 1: 
800B ES F'LlSH HL 80lE C5 r'USH BC 
800C BUCLE2: 80lF E5 PLl5H HI_ 
800C lA LD A, <DE) 8020 BUCLE:: 
8000 LD (HU,A 8020 lA LD A, (DE) 
77 
800E 23 INC HL 8021 77 10 (HU .A 
8('('F 13 INC OE 8022 L_' INC HL 
8010 10FA OJNZ BUCLE2 8023 13 INC DE 
8012 POP HL 8024 I('FA OJN7 E<UCLE::? 
El 8026 El 
8013 010008 LD BC.1I800 F'OF' HL 
8016 ADD HL,BC 8027 010008 ID BC.*,BCiO 
09 802A 09 
8017 CI F'OP BC AOD HL,BC 
8018 OD DEC C 80:?B 3004 JR NC,OI, 
8019 20EF JR NZ,BUCLEl 8020 0150CO LO BC. »CC150 
80lB C9 RET 8030 09 (,OD HL,BC 
80lC ENO 8C131 GV, 
so:! 1 CI por BC 
80,,2 00 OEC C 
8033 20E9 
1 f. m.r'I" L,l 
8035 C9 RCT 
I I 80"'6 FND 
ETIQUETAS 
BUCLEI 800A BUCLE2 800C ¡ ETIQUETAS I 
PROGRAMA 111 BUCLE1 8011' BLlel F:? 80:'0 m' 80 7 ,1 
PRINT 8017 SIGur 8t"'(JÓ 
10 REM F'ROGRAMA !II 
:->n a=f
8(JOO 
30 PRINT HEX$(a':" : ", 
40 INPUT h$ 
50 F'QVE a. VAL< "1 "+h$) 
/,0 a=a+I:GOTO 30 
PROGRAMA IV 
orll'''] (1 org 11 8(1('0 
F'ROGRAMA IV 
80(L(1 FD4BOO9(J LO BC, (119(0(10) 
8004 l1 t ):'9(] LO OE.1I9002 
8007 71(1(IFn LO HL, #E(o(I(' 
-;j(l(IA BUCLEl : 
RO(IA r::. PLlSH BC 
800P F
 PUSH HL 
80(JC BUCLE?: - 
8C1(1C lA LO A, (DE) 
8r:-IOD 77 LO (HU.A 
FiO(][ , " INC HL 
8(1()F 13 INC DE 
8('1
O li"1FA DJNZ BUCLE:? 
8n17 él POP HL 
801 ;. 01(1008 LD BC,IIBOO 
8 r l1 h (J'j AOD HL.BC 
8(<1 7 "':(1('4 JR NC,m: 
801 Q 0150CO LO BC,IIC050 
801C 09 ADO HL,BC 
8('10 01, : 
8010 C1 F'OP BC 
80lF (oD OEC C 
8,,¡r ?(JE:<I JR NZ.BUCLE1 
R(J:"I C9 RET 
Aci::2 ENO 
BUCLó' 8"(:1\ BUCLó2 80c)C 01 BOlO 
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in duda 
alguna 


A través de esta sección se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atormenten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destreza 
en su manelo. 
Semanalmente, aparecen en estas 
páginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundará en un mejor servicio y en 
un contacto más estrecho entre to- 
dos nosotros a través de la revista. 
SIN DUDA ALGUNA está 
abierta a todos. 


Muy señores míos: 
Me voy a comprar un Amstrad 
epe 464 y la pregunta es: ¿Se le pue- 
de poner una unidad de disco al 
Amstrad epe 464 y ser compatibles 
los discos que salgan para el epe 
664? 
Un saludo. 
Francisco Fernández (Málaga) 
Al CPC 464 puedes colocarle una 
unidad de disco. En principio, prác- 
ticamente la totalidad de software en 
disco, sobre todo bajo CP/M, corre- 
rá en ambos ordenadores, 464 y 
664. 


Me dirijo a ustedes para consultar- 
les dos dudas, Una es referente a un 
juego publicado por esta revista en 
el número do.s: «Egg Blitz». Este pro- 
grama lo tecleé en mi ordenador (un 
epe 464) y éste me indicaba «Me- 
mory full». Les ruego miren si esto es 
debido a alguna errata de publica- 
ción o a algún error de programa- 
ción, 
La otra duda es sobre la posibili- 
dad de ampliación de memoria del 
Amstrad epe 464, ¿Es posible? Si es 
así, 
cómo? 
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¡Ah!, una terdera duda, ¿Podrían 
explicarme los esquemas de períodos 
de tono de los manuales del epe 
464? y ¿cómo se pueden generar las 
notas ae la escala musical con 
«sound»? 
Ahora ya sólo me resta despedir- 
me. Gracias por escucharme. 
Ramón J. Pachades 


Respecto a tu primera cuestión, su- 
ponemos que intentaste cargar el 
programa en un 464 con unidad de 
disco (el mensaje MEMORY FULL así 
lo indica), porque de lo contrario 
funciona perfectamente. 
Donde sí tendrás problemas con 
este programa es en un 664, por la 
razón anteriormente expuesta, el dis- 
co, 
La posibilidad de ampliar la me- 
moria del 464 es algo que todavía no 
está claro: teóricamente es posible, 
paginando memoria, pero que sepa- 
mos no hay nada comercial disponi- 
ble. 


Tengo en mente cambiar mi 
epe-464 por un epe 6128 y he oído 
rumores de que los programas en 
cinta comerciales e incluso los vues- 
tros de la Serie Oro, no son compa- 
tibles con este ordenador. 
tHay, algo de cierto en esto? 
Gracias. 
Nota: Enhorabuena, os está sa- 
liendo muy bien la revista. 
Mario Durén (Madrid) 
Nuestros programas normalmen- 
te son compatibles con todos los 
Amstrtld y, en caso contrario, se in- 
dica en la revista con toda claridad 
a qué ordenadores van dirigidos. 
En el caso de soft comercial, exis- 
ten programas que sólo funcionan en 
el 464. 
Normalmente, los que corren en el 
664, también lo hacen en el 6728, 


Soy el casi arrepentido poseedor 
de un ordenador Amstrad epe 664. 
Como no he podido obtener en ca- 
sa comercial alguna, ninguno de los 
periféricos de este ordenador ni nin- 
guno de los programas de gestión en 
disco que Amstrad insiste en anun- 
ciar, opté por entretener la ya larga 
espera aprovechando los juegos que 
tiene a su disposición el epe 464. Uti- 
licé para ello un cable de conexión 
al magnetófono, hecho por profesio- 
nales a propósito, ya que el cable de 
la casa tampoco existe. La decepción 
ha superado todas las previsiones, 


La mayor parte de los juegos proba- 
dos no se graban. En estos casos se 
exhibe con unanimidad el mensaje: 
«Memory full in oo.» (En lugar de la 
línea de puntos aparece un número.) 
En el libro de instrucciones no se ex- 
plica nada, ¿Saben ustedes qué sig- 
nifica este mensaje? ¿Es posible supe- 
rar este problema? ¿Hasta qué pun- 
to son compatibles los juegos del epe 
464 en el epe 664? 
Esteban Padros (Barcelona) 
Que nosotros sepamos, Indescomp 
vende un cable de cassette para per- 
mitir que el 664 pueda aprovechar- 
se del software existente en cinta. 
Por otra parte, algunos de los pro- 
gramas que existen para el 464 no 
son compatibles para el 664, Nor- 
malmente, esto sucede con los prime- 
ros programas que salieron para 
Amstrtld, cuando el 664 aún no es- 
taba disponible y se irá resolviendo 
con el tiempo. 
Una casa de software respetuosa 
con sus clientes, lo menos que pue- 
de hacer es indicar en la cinta con 
qué máquina es compatible su pro- 
grama. Como desgraciadamente no 
. es así, la única solución es exigir que 
prueben el programa que piensas 
adquirir en un 664, 
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¿Cómo conseguir que una serie de datos, sean utilizados por varios programas sin tener 
que teclearlos en cada uno de el/os? La solución, es crear un fichero de datos, 
independiente del programa, que se almacena en cinta o disco y del cual podemos 
recuperarlos cuando nos interesa. 
En esta ocasión Análisis estudia como grabar datos en un archivo en cinta o disco y como 
leerlos después. 


10,20 Los REM de costumbre, 
30 Escribe un mensaje en pantalla, que nos indi- 
ca que los datos se están grabando, 
Su inclusión, se debe a que en los sistemas de dis- 
co esta grabación, se realiza sin mensaje alguno y 
se podría pensar que no está ocurriendo nada, 
En los sistemas de cinta, es innecesario por la apa- 
rición del mensaje Press REC and PLAY then any key, 
50 Efectúa la apertura de una vía de transmisión 
de datos desde el programa a la cinta o el disco, per- 
mitiendo que éstos sean almacenados en un fiche- 
ro, en este caso le hemos dado el nombre de archi- 
vo, 
60.90 Ciclo FOR.., N EXT, que se encarga de leer 
los datos y mandarlos al archivo, 
Una vez comprendido el programa sería intere- 
sante, hacer que éste se repita dos o tres veces y ob- 
servar los resultados, 
70 Lee los datos almacenados en las variables; 
nombreS y número. 


l 
l 


--... 


En nuestro coso la información viene de una línea 
DATA, pero esto podría realizarse también desde 
otros cauces, como por ejemplo el teclado, 
80 WRITE #9 hace que la información almace- 
nada en las anteriores variables, sea enviada a dis- 
co o cassette, 
La primera vez que rota el ciclo les corresponde 
a Pepe y 1, la segunda; a Luis y 2, la tercera; a Car- 
los y 3. 
90 El ciclo concluye después de tres vueltas, le- 
yendo toda la información de la línea DATA, 
100 Envía una cadena que será almacenada en 
el fichero de salida, ésta indica el final del archivo, 
110 Cierra el canal de salida, 
130.140 Provoca una pausa entre el almacena- 
miento y la lectura de datos. 
En este momento, los datos están almacenados en 
un fichero llamado archivo, 
160.230 Lee los datos del fichero y los copia en 
pantalla, 


160 Crea una vía de comunicación entre el pro- 
grama y el sistema de almacenamiento, para leer 
el fichero archivo, En el caso de utilizar cassette, re- 
bobinar la cinta. 
170.200 Conforman el ciclo FOR...NEXT, que 
efectúa la lectura de los datos, 
180 INPUNT #9 toma información de disco o 
cassette , almacenándola en las variables nombreS, 
número, 
190 Visualiza en pantalla los datos tomados del 
archivo, 
210 Efectúa la lectura del final del fichero y la 
almacena en final$, , 
220 Escribe el mensaie «Final del archivo», 
230 Cierra la vía de comunicación establecida en 
la línea, 
160 
250 Contiene los datos que vamos a transferir al 
fichero, 


\.J 


10 REM ti FILER :ti 
20 REN iU."."''''' 
30 PRtNT "'G,...b ndo dato. .n ,,1 
,..chlvo" 
40 REMUu....U..U..UU:UU.. 
:50 OPENOUT "iI,,"chivo' 
60 FQR ciclo 1 TO 3 
70 REAO nOlflbrl8-t,nLUn ro 
80 WRITE Ijtq, notnb"'S>
Jn...mS',.o 
90 NEXT ciclo 
100 PRINT1IQ. fln,1 d.l .,.ChlV 
o' 
110 ClOSEOUT 
120 REHurUiU:tU..tUtUU.. 
. 
130 PRINT 'Pul'D
" una teclo?l pa 
r. 1011-,.. 81 .rchlvo' 
140 WHILE INI<,EV
 ":WEND 
150 R
MU.Utu...Uun...Uu 
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. 
Iba OPENIN '.U'ChiVO' 
170 FOR ciclo. 1 TO 3 
190 INPUrI9, nombre', numero 
190 PRINT nambre'.nLlm.,..o 
200 NEXT c
clo 
210 INPUT "9.f
nAl' 
220 F'RINT TA[.I(8)hnal. 
230 CLOSEIN 
240 REH..UU".....UUUtUU 
. 
250 DATA P.p.,1.Lula,2,Julio,3 
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Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece s
s pági- 
nas para publicar los pequeños anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuación. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores, 
Envíanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54,062 
28080 MADRID 
¡ABSTENERSE PIRATAS! 


................. 


AMSTRAD Semanal comunica a todos 
sus lectores la apertura de uno nueva sec- d I d eGS 
ción dedicado a recoger las mejores ideas A "' str a 
que exploten al máximo las posibilidades del ... 
ordenador, materializadas en programas 
claros y cortos (máximo 25 líneas), los mejores de entre todos ellos serán publica- 
dos con el nombre de su autor en la revista, recibiendo como premio, gratuitamen- 
te en su domicilio los cuatro primeros números de nuestra cinta mensual. los pro- 
gramas enviados deberán incluir: 
- Cinta de cassette con el programa o programas grabados. 
- Explicación detallada del funcionamiento y propósito del 
programa, mecanografiado a 2 espacios o con letra clara. 
Es ir"prescindible indicar en el sobre claramente: AMSTRAD IDEAS. 
la dirección es: 
Editorial Hobby Press, S, A. 
la Granja, sIn, 
Polígono Industrial de Alcobendas, 
Madrid, 


Vendo Commodore 64, 1;1c1uyo 
Datassette C2N, joystick Quick 
Shot 11, guía del usuario, Curso de 
Basic (2 libros), numerosas revistas 
especializadas, y un excelente 
surtido de juegos (One on One, 
Oecatlhon, Beach Head, etc.). 
Todo ello por 49.000 ptas. 
Interesados llamar, de 14 a 
16,30 al (972) 31 53 86, O bien, 
escribir a: Miquel Gasull 
Buenaventura, Alvaro de Bazán, 
2, Palamés (Girona) , 


Vendo <doystick» Quickshot I (sin 
estrenar), «Codename Mat», más 
«Gremlins» (en castellano), más 
«Fighter Pilot», más «Decathlon» o 
«World Cup Football», todo por 
3,500 ptas. Gastos de envío por 
mi cuenta. Instrucciones completas 
y en castellano, Escribir a Manuel 
Angel Sánchez Costa, Amílcar 
Barca, 29 - 2, o D, 11 009-Cádiz. 


................. 


Jorge Juon, 116, 28028 Modrid 
T el. (91) 233 07 35-274 53 80 


Regalo de bienvenida al club de Software MICRO- 1: bolígrafo de acero con reloj de cuarzo incorporado, 


match doy 
southern belle 
death pit 
decathlon 
gremlins 


1.975 
1. 975 
1.975 
1.975 
1.975 


¡Increíbles pre
ios paro tu AMSTRAO 464 y 128! 
(lIámanos, y te asombrarás) 


Tapo de metacrilato transparente para tu 
AMSTRAO 2,450 


dragontorc 
dummy run 
combat Iynx 
exploding fist 
rocky 


1.875 
1.975 
1.925 
2,095 
1.925 


raid o moscow 
jump jet 
beach head 
basketball 
highway encout 


1. 975 
2,595 
2,395 
1.950 
1,975 


Lápiz Oplico OKTRONICS 4,850 


Impresores: i20% Oto, sobre P,V,P.! 


Oiskelle 3": 1,050 
Cinta-15: 85 


El pedido te lo enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, LLAMANDO 
a los teléfonos (91) 233 07 35-274 53 80 o escribiendo a MICRO-1. Jorge Juan, 116, 28028 Madrid. 
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: S OLICITUD DE CINTAS DE PROGRAMAS Y NUMEROS ATRASADOS 
I 
I 
I 
I 
I 
I 
I 
I 
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'] Deseo recibir en mi domicilio, al precio de 675 ptas. cada una, las siguientes cintas con los programas 
publicados por Microhobby AMSTRAD Marco con una (X) la(s) cinta(s) que deseo: 


o Cinta n,o 1 (contiene programas publicados en revistas 1 al 4 inclusive) 
O Cinta n.o 2 (contiene programas publicados en revistas 5 al 8 inclusive) 
O Cinta n,o 3 (contiene programas publicados en revistas 9 al 12 inclusive) 
O Cinta n.o 4 (contiene programas publicados en revistas 13 al 16 inClusive) 
O Cinta n.o 5 (contiene programas publicados en revistas 17 al 20 inclusive) 


z 
* 


o Deseo recibir en mi domicilio, al precio de 150 ptas. cada uno, los siguientes números atrasados de 
Microhobby AMSTRAD 


< 
1-- 

 e I 
a::2 
1 < ':!! 
1--:::; 
::: >- 
(/)0 
w:r 
<o 
>w 
¡¡ja: 
::Ja: 
>0 
w() 
O.,j 
i< 
0< 
.,j.,j 
<w 
1-- :r 
<() 
'2 w 
<>- 
Q. < 
2C 
02 
()LU 

g: 

 (/) (/) 
_LU 
(f'J0 


Nota: Por razones adminislrallvas, no podemos admitir solicitudes de envio de cintas o numeras sueltos con pago contra reembolso o 
TarJeta de Crédilo, Por lavar, envia lalón por el importe o giro poslal. 
S, la torma de pago elegida es lalón bancario, remitelo junto con esle cupón en un sobre cerrado a la misma dirección, 
Las cinlas de programas se edllan una cada mes. SI solicitas varias las reclbiras sucesivamente, conforme sean editadas, No se cobran 
gaslos de envio por las cintas y números sueltos, 


EDAD 


NOMBRE 
APELLIDOS 
DOMICILIO 
CIUDAD 
C, POSTAL 


PROVINCIA 
PROFESION 


TELEFONO 


Marco con una (X) en el casillero correspondiente la torma de pago que más me conviene, 
O Talón bancario adjunto a nombre HOBBY PRESS, S. A. O Giro Postal N." 


Firma: 
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¡ABSTENERSE PIRATASI 
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'
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surtido de juegos (One on One, 
Decatlhon, Beach Head, etc.) , 
Todo ello por 49,000 ptas, 
Interesados llamar, de 14 a 
16,30 al (972) 31 53 86. O bien, 
escribir a: Miquel Gasull 
Buenaventura. Alvaro de Bazán, 
2, Palamés (Gírona) , 


.., .
..,...... . .,......,.., 'IIU..J ".....................IIIVIIII v 
«World Cup Football», todo por 
3,500 ptas. Gastos de envío por 
mi cuenta, Instrucciones completas 
y en castellano, Escribir a Manuel 
Angel Sánchez Costa, Amílcar 
Barca, 29 - 2, o D, 11 009-Cádiz. 


................. 


Jorge Juan, 116, 28028 Madrid 
Te!. (91) 233 07 35-274 5380 


Regalo de bienvenida al club de Software MICRO- 1: 1 bolígrafo de acero con reloj de cuarzo incorporado. 


match day 
southern belle 
death pit 
decathlon 
gremlins 


1.975 
1.975 
1,975 
1,975 
1.975 


dragontorc 
dummy run 
combat Iynx 
exploding fist 
rocky 


1.875 
1.975 
1. 925 
2,095 
1. 925 


raid o moscow 
jump jet 
beach head 
basketball 
highway encout 


1. 975 
2,595 
2,395 
1,950 
1.975 


¡Increíbles precios poro tu AMSTRAD 464 y 128! 
(lIámanos, y te asombrarás) 


Lápiz Optico DKTRONICS 4,850 


Impresoras: ¡20% Dto, sobre P.V.P.! 


Topa de metacrilato transparente para tu 
AMSTRAD 2.450 


Diskette 3": 1.050 
Cinta- 15: 85 


El pedido te lo enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, LLAMANDO 
a los teléfonos (91) 233 07 35-274 53 80 o escribiendo a MICRO-1, Jorge Juan, 116. 28028 Madrid. 



, 4 


Ajedrez' tri · .mensi · I · 1 con VOz e .
,;
' ellano 
£ mstrad CPC 464,CPC 664 yCPC 6128 


PUBL/SHEO 



 



 DEEP THOUGH 
,eFTWAR 


..VR 
2.100:- (cinta) 
3.300;-(diSCO) 


DISTnIBUTED 
G:) software 


I 


"" 


i. L 


(-/ 
,J 

4 
#' 


J) 


f' 
. r_ 


r - 
- - L.-' ..., 
I -.....,../1 


,1 
 - 
'. / 
'/ 4 ) 

 
 

, /
 I 
'. '.". f I 
-" /.... 
¡ 

 -" 
.J j 
:f 
. 
ft'. / 
1'.-._ 
.-;-.. 
.J!" 
n . ,ft'JIT' u' l . 
J I -1' f. 
 . 
. I t)' t / 
I 


\ / / 
\ . /f 
\ l' 
\. 
 I 
\ ( 
;/ 
I 


. ..... ido;!" :,n.. Iliva . .ra España
: 


l 
\ 


-J 

 
,.. 
 


\ 
/ 


.L.... 


. -- 


1 
 
L 


, "Iv'.a.es Comerciales Electrónicas. S,A. 
T ,.--
 'oO' 
 1 n - TI¡!I. 3251058' 08015 B,rcelona, Téléx 93133 AC EE E 


YA DISPONIBLE EN 
c..we
 ,'.. _ 
. Y EN .. ," LAS. 
'rIEN
 ESPECIALIZADAS 



-, -
 & 


'" 


"l 
I 


/ 


\ 


.- 


: r . 
I J' " 
\ 


/ 


.-\ \ 


.., 


/ 


,
 
....... 
\: " 


J 

," ' } 
-
 
. /j \..,; 
_'l 


a 


. 
"- 
I 
, 
" " 


" 



 


. .
. '. 


./' 


....... 


, 

 
\ , ;, (, ii. 
. l. '.. ',(", _, 

 

,l,
 \,.'" 
, .'
 .

 
I
 r 


. - 


.' " 
.... . 
I 
" I \ 
\ \ 
, " 
'"', 
"'- " 
 
\ 


i 
 
" 


oJ, 
.' 


,j 


A-%. 


.1 


. 


,\ 


I 


" I 


, \ 


... 


f.l 


/l 
I 


! 


'- 


../ 


T' 


'" '1 


, 
" 


!!imulaei. n Iridi- '1 ' 
men
on I de'un eom- . '1 
bate de boxeo. Lucha 
eonlra CIMBEl.. 
U!IJ, UI) MATA. 
R.!. JANSE SINO 

 HGIIUR BUI L 
para al arte con ellf. 
Idl, mundial. 
1'>' . '" R M 48 K 1. DO pla
 
AMSTRAI> CP(" 464. 2.100 pta.. 


'
'
 M

l 1,. ti ij
\<: 
;;)j l' . ! 

\ 
 , 1 ).\¡ ;':-. ""J
t1. , J 
, .' ....t 
 

-- t .., '.' ) ,'\ \' \ 
 t,;:,: ' flt ,
 
\ ) ..:l , 1 
.' 1- ' 1 
)\ . ' . 11" 1'11" . .. 
I ;"" } ';" 
. . \ ...." r"\, {,"\, 
"- 
 ¡ "" 1;1' 
.!,;.. " iL ' ,.;< 


.. 


efvi as a tiendas y almacenes telf. (91) 447 34 10 Telex 2542 JA A . 
P
didos contrareembolso (Sin GIE y adhesivos regalo) a: 
"MANSION" DlNAMIC: CI ilo, 2,21 MONTEPRINCIPE, BOADlLLA DEL MONTE, MADRID TELF. (91) 715 0067 
.. 
/ 


'_.-
 ........:.......... J't 



